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Preface 


This manual is intended to be used by individuals who 
want to learn how to use the data-entry functions 
provided by the IBM 5280 DE/RPG (Data Entry with 
RPG subroutines) Program Product. Upon completing 
this manual, the reader should be able to create the 
simple data-entry jobs needed for his data-entry 
business applications and should understand the 
organization of DE/RPG well enough to understand the 
techniques and applications that will be described in the 
DE/RPG User’s Guide. 

Chapters 1 through 6 contain the information necessary 
to create simple data-entry programs. This type of 
program satisfies the requirements of most data-entry 
environments. Chapters 7, 8, and 9 describe advanced 
data-entry applications that involve programming 
concepts such as the use of tables. 

The first two chapters of this manual describe general 
data-entry and DE/RPG terms and concepts. The 
experienced person might want to read these chapters 
for a brief review. The inexperienced person should 
carefully read Chapters 1 and 2. Both readers should 
review the information on the back of the general utility 
(Z) and data description (A) specifications to determine 
the type of functions that are available. They may also 
want to scan the DE/RPG Reference Manual, which 
contains detailed descriptions of the functions provided 
by DE/RPG. 


Related Publications 

• IBM 5280 General Information manual, GA21 -9350, 
describes the devices and program products available 
with the 5280 system. 

• IBM 5280 Operator’s Guide, (to be available at a later 
date), provides a description of the processes 
involved in operating the 5280 system. 

• IBM 5280 Planning and Site Preparation Guide, 
GA21-9351, provides information relevant to installing 
the 5280. 

• IBM 5280 Utilities Reference/Operation Manual, 
SC21-7788, provides information about using the 
noncommunications utilities. 

• IBM 5280 System Control Programming 
Reference/Operation Manual, GC21-7824, provides 
detailed information about the SCP for the 5280. 

• IBM 5280 DE/RPG User’s Guide, (to be available at a 
later date), provides tips and techniques for 
programmers using DE/RPG. 

. IBM 5280 DE/RPG Reference Manual, SC21-7787, 
provides detailed information about DE/RPG. 
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Chapter 1. About this Manual 


This manual teaches you how to use DE/RPG (Data Entry with RPG 
subroutines) to write programs for your data-entry jobs. This involves teaching 
you DE/RPG terminology and concepts so you can use the DE/RPG Reference 
Manual. This manual contains only the basic DE/RPG functions, the reference 
manual describes all DE/RPG functions. The DE/RPG User's Guide contains 
descriptions and sample programs for the more complex operations that 
DE/RPG can perform. 

Chapter 2 gives an introductory description of data-entry concepts and terms. 
This description does not contain everything you need to know about data 
entry. It does, however, contain the information that you need to know in order 
to use DE/RPG for data entry. 

Chapters 3, 4, 5, and 6 explain the process of defining a simple, data-entry job 
using DE/RPG. This process consists of: 

• Reviewing the source document to determine the arrangement of the data 
(Chapter 3) 

• Identifying the arrangement of data to use for writing the data set on the 
diskette (Chapter 3) 

• Determining the data checks, shifts, and edits that are needed to ensure 
accurate entry (Chapter 3) 

• Defining the appearance of the displays that will be used in the job 
(Chapter 3) 

• Using the data description specification (A) to describe the fields on the 
display, the records containing the fields, and the data set where records 
will be stored on the diskette (Chapter 4) 

• Using the general utility specification (Z) to describe the formats, their order 
of use, and the job (Chapter 4) 

• Entering the sample program using the source entry program (Chapter 5) 

• Compiling the program to prepare it for use by the operator (Chapter 5) 

• Using the compiled program to enter data (Chapter 6) 
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When you have completed Chapter 6, you will understand how to use DE/RPG 
to write a program that creates a master customer fiie. You wiii aiso be 
familiar with some of the basic DE/RPG data-entry functions and you should 
begin to feel comfortable with the terms, specifications, and processes 
involved. Remember that the more involved you are in working through the 
sample programs, either by making entries on your own specifications or by 
trying another similar program, the more you will learn. 

Chapter 7 assumes that you know how to write a simple data-entry program; 
it concentrates on teaching you how to use additional editing and automatic 
functions performed by DE/RPG. Tables are introduced and used in a variety 
of ways in this chapter. Again, there is only one sample program, and it takes 
you through the process of designing the displays for the second data-entry 
job. 

Chapter 8 completes the job process by writing the program using the A and Z 
specifications. 

Chapter 9 teaches you how to write a program that creates tables. 

Chapter 10 contains self-test questions that you should answer to measure 
your understanding of DE/RPG. 

Appendix A provides answers to the questions that are asked at the end of the 
chapters. It also contains solutions to the sample program descriptions given 
in Chapters 6 and 10. Answer these questions to gain the maximum use of the 
manual. 

Appendix B contains a glossary that provides a quick reference source for 
definitions of unfamiliar terms. 

Appendix C contains blank display work sheets and specification forms for 
your use. 

In this manual, whenever samples of display work sheets or specifications are 
being used, the area being described appears in color. 
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Chapter 2. Introduction to the Concepts of Data Entry 


This chapter describes some basic (1) data-entry concepts and (2) DE/RPG 
terms that you will need to know. 


WHAT THE TERM DATA ENTRY MEANS IN THE 5280 SYSTEM 

Data entry is the process of transferring information from an existing source 
(such as an order entry form) to a diskette record. 


Mr. Billings 

Rapid Rooter 

Highway 35 

Chicago, III. 








Source Document 


Display Format 


Diskette Format 


DE/RPG fulfills the requirements of data entry by providing a way for you to 
write programs for data-entry jobs. DE/RPG allows you to format information 
for the display and for the diskette, to perform checks and edits against the 
data as it is entered, and to perform automatic functions that reduce the 
number of entry keystrokes. 

You should understand certain basic data-entry concepts and terms before you 
can begin using DE/RPG. These are: 

• Job 

• Formats 

• Checking and editing 

• Automatic functions 
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Job 


A job defines and controls the data-entry task you want performed. For 
example, a data-entry task might consist of allowing someone to enter 
information from a source document and then write the information to a 
diskette. Entering information from an order form and writing the data to a 
diskette for use in billing or inventory is an example of how a DE/RPG job can 
be used. 

r — -^ 

CUSTOMER NAME 

COMPANY 

ADDRESS 



Formats 

Formats determine the sequence of information on the display and diskette; in 
other words, formats specify what goes first, what follows, and what is last. 
DE/RPG allows you to define the formats you require for the job. 

There are two types of display formats: entry formats and review formats. 
Entry formats specify the sequence to be used for displaying a record during 
the enter mode. Review formats specify the sequence to be used for 
displaying a record when you are changing or verifying data. Modes are 
described later in this chapter. 
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Checking and Editing Functions 


The next basic concepts that you should understand are checking and editing. 
Both terms are used to define the process of placing some limitations on the 
data as it is entered. DE/RPG provides checks and edits such as the following 
to help you ensure that the entered data is correct: 

• Requiring the operator to enter something 

• Right-adjusting partially filled fields and adding either zeros or blanks into 
the unfilled positions 

• Requiring the operator to fill the field with data 

• Allowing only one type of entry such as numeric only or alphabetic only 

There are many more checks and edits that DE/RPG performs for you. The 
DE/RPG Reference Manual describes each of these in detail. 


Automatic Functions 

The final basic data-entry concept that you should know is automatic functions. 
Automatic functions are actions that can be performed by DE/RPG without the 
operator's intervention. DE/RPG provides a variety of these functions such as: 

• Automatically duplicating one entry from another entry 

• Inserting characters 

• Providing messages to guide the operator 

• Performing arithmetic operations such as adding, subtracting, multiplying, 
and dividing 


HOW DE/RPG RELATES TO DATA ENTRY 

So far you have learned that DE/RPG allows you to design data-entry jobs, 
create data-entry formats, specify checks and edits against data as it is 
entered, perform automatic functions, and write data in a diskette data set. To 
do these operations, you write a DE/RPG program using the general utility (Z) 
and data description (A) specifications. 

Figure 1 illustrates the specifications you will learn to use to write programs in 
this manual. 
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IBM 5280 GENERAL UTILITY SPECIFICATIONS 



o Job/Format/ 

< Subroutine Name 
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International Business Machines Corporation 


IBM 5280 DATA DESCRIPTION SPECIFICATIONS 



SUB (nameI 
SUBST (tablet table 
TADDIi'TOTnj [n 
TSUB |[*T0Tn] [n; 
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‘Number of sheets per pad may vary slightly. 
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Figure 1. General Utility and Data Description Specifications 
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You must understand some DE/RPG concepts and terms to use DE/RPG 
effectively. These concepts are: 

• Programs 

• Files 

• Data Sets 

• Modes 

• Records 

• Fields 


Programs 

A DE/RPG program is the information you provide to describe the job. A 
minimum program must contain descriptions for the job, data set, modes, files, 
records, and fields. Details about these descriptions will be provided when you 
start writing your first sample program in Chapter 4. 


Files 


Files receive and temporarily store data. Files are related to input/output 
devices; they define the interface between DE/RPG and the 5280 devices. 

The display file receives data from the keyboard and controls the data on the 
display. The diskette file controls the contents of the diskette data set. When 
a complete display record is assembled, the data in the display record is 
written in a diskette record described by the diskette file. Every data-entry job 
that is interactive (requires the operator to use the keyboard) uses programs 
that contain file descriptions for at least two files: display and diskette. 


Data Sets 

A data set is the collection of related records on the diskette. Using a 
DE/RPG program to enter information into the system is one way to create a 
data set. 


Modes 

Modes are types of operations during which data entry can be performed. 

Four primary modes are used by DE/RPG: enter, update, verify, and rerun. 
Enter mode allows the operator to enter data. Update mode allows the 
operator to change data. Verify mode helps the operator check the accuracy of 
the entries made during the enter mode. Rerun mode provides accurate totals 
and uninterrupted automatic calculations. No operator interaction occurs during 
the rerun mode. 
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Records 


A record can be thought of as a unit of related information. There are two 
kinds of records: records for the display and records for the diskette. 

A display record is the contents of a single display. For example, a display that 
contains all the information needed to describe a customer can be thought of 
as a display record. 


r 


MR. R.D. STEVENS BUTTRESS IMPLEMENTS 

778 SUNNEYVILLE, YUMA, ARIZONA, 55807 



Display Record 

The diskette record consists of data entered by the operator or data 
automatically supplied by DE/RPG. It need not contain all the descriptive 
information that was on the display to guide the entry. 

This same information appears as follows for the diskette record. 

MR. R.D. STEVENS BUTTRESS IMPLEMENTS778 SUNNEYVILLE, YUMA, 
ARIZONA, 55807 

Diskette Record 

Notice that there is space separating some information in the record. This 
separation is formed by the unused part of each field. Normally, entries are 
not as long as the length specified for the field. When an entry is shorter than 
the space allowed for it, blanks (or, in some types of data, zeros) fill the 
unused portion. 



Fields 


Each record consists of smaller pieces of related data called fields. A field can 
consist of (1) information supplied by DE/RPG or (2) data entered by the 
operator. 

Look at the sample display record again. 




MR. R.D. STEVENS BUTTRESS IMPLEMENTS 

778 SUNNEYVILLE, YUMA, ARIZONA, 55807 




The fields shown on this display (MR. R.D. STEVENS, BUTTRESS 
IMPLEMENTS, 778 SUNNEYVILLE, YUMA, ARIZONA, 55807) are all data 
fields that must be supplied by the operator. Now look at the following 
example to understand how a field supplied by DE/RPG might be used. 


- \ 

MR. R.D. STEVENS BUTTRESS IMPLEMENTS 

778 SUNNEYVILLE, YUMA, ARIZONA, 55807 



Field 
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Notice that a new field has been added to the record. In the lower corner of 
the display, the letter H has been added. This field can be used to distinguish 
this type of record from other records. Because this record contains 
header-like information, the H can be used to mark the record as a header 
record. If this record were combined with other records containing detailed 
data, it could be distinguished from the detailed records as a header record 
type by this H identifier. Header information is general information such as a 
customer's name and address. The three basic types of data-entry records 
(header, detail, and trailer) are described in Chapter 7. 

DE/RPG can automatically include the record markers you specify. No checks 
are performed against automatically supplied fields. The edits and checks are 
performed against the data as it is entered. Edits and checks against manually 
entered fields immediately identify invalid entries as errors. 


Prompts and Literals 

Explanatory information for describing fields or records may be specified in two 
ways: prompts and literals. Both are controlled by DE/RPG. 

A prompt is information that is used to tell the operator what information the 
field reguires; the prompt always appears on row 2 of the display and is 
displayed until the field is exited. Row 1 of the display is always used by the 
system for a status line. 


Status Line 



Prompt 
1 _ 


ENTER THE CUSTOMER NAME 





The literal is a special kind of prompt that appears next to the field it describes 
or by itself. It remains on the display until the complete record is entered. 
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Look at the same sample display with literals added: 


Literals 



l 


The literals in this example are NAME:, COMPANY:, and ADDRESS:. Neither 
the prompt nor the literal is written on the diskette. This means that the 
display contains the prompts and literals, but the diskette does not. 

The contents of the diskette record for the previous example is: 

MR. R.D. STEVENS BUTTRESS IMPLEMENTS 778 SUNNEYVILLE, 
YUMA, ARIZONA, 55807 
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SUMMARY OF CHAPTER 2 


You should now have a basic understanding of data entry and DE/RPG 
concepts and terms. To test your understanding, try to answer these 
questions: 

1. Match the following terms with their definitions: 

Terms 

1. Job_ 

2. Files_ 

3. Data set_ 

4. Format_ 

5. Modes_ 

6. Record_ 

7. Field_ 

8. Prompt_ 

9. Literal_ 

10. Program_ 



Definitions 


a. The information that describes the task to be performed. 

b. The types of operations in which the program can operate. 

c. Device-related objects that temporarily receive and store data. 

d. Pieces of related information that make up the contents of the display 
or diskette. 

e. A fixed-position message that appears on the display. 

f. The task to be performed. 

g. A message that can appear anywhere on the display. 

h. The smallest pieces of related information that can be in the display or 
on the diskette. 

i. The collection of related records on the diskette. 

j. The organization of information on the display or on the diskette. 

2. In your own words, describe what the term data entry means. 


3. In your own words, describe what uE/RkG does. 


Check your answers against the answers provided in Appendix A. If you have 
not answered these questions correctly, reread this chapter. The next chapter 
will start the process of defining the first sample job. 
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Chapter 3. Getting Started Using DE/RPG 


You can use DE/RPG to define and control the format of information on the 
display and on the diskette, check or edit information as it is entered, perform 
automatic functions, and control the appearance of data on the display. 


OVERVIEW OF THE PROCESS INVOLVED IN USING DE/RPG 

Before you begin the first sample job, you should have an understanding of the 
total process involved in using DE/RPG. Figure 2 provides this overview. 



Figure 2. Overview of the Process Involved in Using DE/RPG 


The source entry program mentioned in Step 2 of Figure 2 is available with 
DE/RPG. This program prompts you for your program information, which is on 
the Z and A specifications. Chapter 5 shows you how to use the source entry 
program. 

The compiler mentioned in Step 3 of Figure 2 is supplied on the DE/RPG 
diskette. All programs that you write using DE/RPG must be compiled. 

Chapter 5 shows you how to compile the program for the first sample job. 

Review Step 1 in Figure 2. This is where you are now. 
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In this chapter, you will start the first sample job. The first thing you will do is 
to design the displays for the DE/RPG program. When you have read this 
chapter, you should be able to do the following: 

• Describe the fields in the source document that need to be defined for the 
program 

• Design displays that look like the source document 

• Assign checks and edits to the fields 

• Define the format for the records in the diskette data set 

Until you have carefully planned what you want the operator to see, you should 
not use the specifications to define the job, format, files, records, or fields. 
Once you have designed the displays on work sheets, describing them on the 
A specification is simple. 


THE DESCRIPTION OF THE MASTER CUSTOMER IDENTIFICATION JOB 

Using DE/RPG, you design the format for the display and for the diskette. 
Normally, you will be given the source document that the person entering data 
uses. This source document might consist of a salesperson’s filled-in order 
blank or, as in this example, cards from a customer address file. You will want 
to design a display format that uses the source document as a model; this 
helps the person entering the data to do the most efficient job. 

The person who uses the data set provides you with the diskette format that is 
required. Without this format, the information you provide might be useless. 
This diskette format may or may not be the same as the display format. If the 
formats are different, the operator is unaware that the information is being 
written on diskette in a format that is different from the format being 
displayed. In the first job, the display and diskette formats are the same. 

To understand how to best define a data-entry job, you must be familiar with 
the environment in which it will be used. Consider the data-entry department 
that will be creating the first sample program. This department is small; it has 
three people who enter data and design programs. Often they exchange entry 
tasks. This means that the person who designs the program might not always 
be entering data for it. There is a need, then, to include enough prompting to 
guide the operator. 

The supervisor of the data-entry department has given you a customer address 
file. You have been instructed to write a DE/RPG program that will allow an 
operator to enter the information from the cards in the file and write it in a 
diskette data set. 








The name of the data set you are to create is MASTHEAD. Assume that the 
supervisor has told you that the data on each card will form one record and 
that all records are 150 positions long. The record name is to be HEADER. In 
addition, you are to mark an H in the last position of each diskette record, so 
that all records are identified as header records and can be used later in 
another job. The supervisor has also taken a card from the file and written the 
length and names of the fields for each entry. You will use these lengths when 
you design the displays; you will use the names when you write the program. 
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You now have enough information to start designing the job. The remainder of 
this chapter and Chapters 4, 5 and 6 show you how to use DE/RPG to design 
this job, write the program for it, enter the program into the 5280, and use the 
program to write customer data on the diskette. 
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DESIGNING THE DISPLAYS 


The easiest way to start is to decide on the appearance of the displays. To do 
this, you should use work sheets. Assume that you will be using a 
480-character display. This display is 6 rows high and 80 columns wide. 
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You can use either marked graph paper or the display screen layout sheets, 
GX21-9271, as work sheets. This manual uses the latter to illustrate display 
designs. If you use graph paper, be sure to mark 80 columns across the top 
and 6 rows down the side as a guide for placing the fields on the work sheet. 


Graph Paper 



The method used for marking the display work sheet is a matter of individual 
choice. The important part of marking the work sheet is that field descriptions 
are clear and correct. 





































































Factors to Consider When Marking the Work Sheets 


Before you begin to mark the display work sheets, you should understand how 
DE/RPG uses the display. The first row of each display is not available for 
your general use. This row is reserved for status information; the status line is 
described in Chapter 6. Generally, the status information tells you such things 
as the mode in which the program is operating, the record number currently 
being displayed, error conditions, and the number of positions remaining in the 
field. 

The second row of every display is used for fixed-position prompts included in 
the DE/RPG program. DE/RPG places all prompts in column 1 and row 2 of 
the display. 

A prompt can be a maximum of 200 characters long. Prompts are always 
associated with a data field. When the data for the field has been supplied 
and the next field is displayed, the prompt disappears. The row used by the 
prompts can also be used for any other field defined by the program; if fields 
and prompts both occupy this row, the prompt overlays all fields on the row. 
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When you use DE/RPG, the second row of the display (one down from the 
status line) is considered line 1, the next row is line 2, and so on. In the 
sample programs, you will learn how to reserve row 2 for prompts and use 
rows 3 through 6 for data fields and literals. 

The line and column information for the display is described on the A 
specification. When you use the A specification, you provide the line (row) and 
column position for each field you want formatted on the display. If you do 
not want to position fields on the display, do not include this information. 

When the line and column information is not included for the program, the first 
field begins in row 3 and all remaining fields are strung together following the 
first field. All prompts appear in row 2. 

When you want to format fields on the display, all prompts appear in row 2. 
The program considers row 2 to be the first line. Fields described as being in 
line 1 and column 1 begin in row 2 and column 1, where they are overlayed by 
prompts. If you do not want fields overlayed by prompts, you need to specify 
that they begin in line 2 and column 1 or below. 

Both sample programs in this manual use formatted displays with prompts 
using row 2 (line 1) and data fields and literals beginning in row 3 (line 2). 



A Brief Description Showing How the Work Sheets are Marked 


The following sample indicates the way the work sheets will be marked. 


Display Screen Layout Sheet 


COLUMN 



Notice that line 0 is blank. Line 1 contains a circled number which is repeated 
in the lower part of the work sheet. This circled number is a key that 
corresponds to the line on the bottom of the work sheet with the description 
of the field. The field being described is a prompt. This prompt will always 
appear on line 1 (the location of the first circled number). The wording for the 
prompt is START THE PROGRAM BY SELECTING A NUMBER. 
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Line 2 of the work sheet contains a straight line that goes from column 1 to 
column 10. It also has a circled number. The line is indicating that this is a 
data field. The length of the line tells you how long the field should be. The 
circled number references a description of the field. In this case, the 
description tells you that the field should only contain numeric entries. Line 3 
contains the word NUMBER:. The word NUMBER names the literal to be 
placed in this location of the display. 

Now that you know how the displays will be marked on the work sheets, you 
are ready to start describing the fields for the first sample job. 


USING THE WORK SHEETS TO DESIGN THE DISPLAYS FOR THE FIRST 
SAMPLE JOB 

The operator's entry will be most efficient if the display designs match the 
source document. The source documents for this example are the cards in the 
customer name and address card file. 


Oslo Fisheries 


Rheems Paper Co. 


Morel ite Battery Co. 


Mr. J.R. Andrews 


1631 S. Main St. 


Watsonville, Virginia 


16963 


_o 

o_ 






Begin marking your display contents on your work sheet. The first field should 
be the corporation name. Look at the work sheet that follows. 


Display Screen Layout Sheet 


COLUMN 


21-30 


11213141516I71819101Il2l3l4]5l6l7l8l9l0 


1 12131415l6 17 l8l9 lol 1 12131415l6l 7l8l9l0l 1 12I31415J617|81910 


61-70 

1121314151617181910 


71-80 
lT2l3l4l5l6l7181910 


112l3l4l5l6l7l8l9l0 


I ■ ■ ■ ‘ I ' ■ ' ‘ 1 ■ ‘ ■ I ‘ — I ■ - * i • ‘ 


. . . , 1 , , , , 1 , , , 

. 1 . . , 


-X_x X . J 1 . X-^-X-4 X . . -X. L_x_. 1 . . . . 

. . . , 1 . . , , 1 . . . 

, 1., , . . 

| .... 1 | 1 | . 


. . . . 1 , , , , 1 . , . 

. 1 , . , 

| .... 1 .... | . . . . l-^_ t . | . 1 

.... | .... 1 .... | .... 1 ■■.. | .... 1 ... ■ 

. . . . 1 . , , , 1 , , . 

. 1 , , , 

| .... 1 .... | , . . , 1 . . . . | . 1 

| 1 ■ ■ | . . . ■ l^-x .. ) .... 1 ... . 

. , , , 1 . , , , 1 . , . 

, 1 . . , 

| . , . , 1 , , , ■ | , 1 ■ . . , | , 1 

| . 1 | 1 | , . J_x , X 

.... I .... 1 . 

. 1 , , , 

| .... 1 .... | . ■ . . 1 . . . ■ | . 1 

, . , , | . 1 X X X. X ■ . .1 .... | . 

. ... 1 .... I ... x 

1 

1 .... 1 | 1 .... 1 ... . 

1 .... I ... . 1 .-x. . . j , . . , 1 . , , . 


, 1 , . , 

| , , , . 1 , . , . | . . . , 1 . , , . | . , , , 

. , . , 4 X. . . . 1 . X X X J_.. . . . 1 * . X , | . , . , 1 . . 

.... 1 .... 1 , 

. 1 . . , . 

1 x ... 1 . X.X.^I .X x , . 1 x X X X X J 

_-X_X„X X 1 X_X. . . 1 X X . , 1 ■ ■ ■ , 1 X 1 .... 1 ... X... 




... I 


. . I 


* I 

-I 



1 

1 



.Lx 


4 


i 


i 





i 


f * * 


; 


i 


4-'4 







HHiinmHBmmJ 

nRncjRnHnnn 

KiRin HEinmniPi[«i 

nRnciHRHFnmR 


nnnEiEiraniiiciE] 

nFunnmnraminri] 




Getting Started Using DE/RPG 25 












You may place the first field anywhere on the display. The sample places the 
first field in line 2 and column 1 of the display to match the location of the 
field on the card. As you begin to mark the location of the field, consider two 
questions: 

• How long should the field be? 

Answer: The instructions from the supervisor show that this field should be 
30 positions long. 

• How will the operator know what to put in the field? 

Answer: Supply information that guides the entry. Two choices are 
available: the prompt and the literal. 

Because the prompt remains on the display only as long as the field is 
incomplete, it is probably the best choice if other fields will be on the display. 
Because you know that a number of fields are in the record, you should allow 
adequate space to include them. 

Select the appropriate wording for the prompt and place it on the work sheet. 
The PMT stands for prompt; the exact wording for the prompt follows. You 
now have an understandable prompt and a field that the operator can use. 


Screen Layout Sheet 


COLUMN 







You should consider one more action before proceeding. The operator should 
be required to enter data into the first field to guarantee that no record in the 
customer address data set is without a corporation name field. This is easy to 
accomplish using DE/RPG. All you need to do at this time is to note on the 
work sheet that an entry in the field is required. Use the supervisor's 
instructions (which were provided in the beginning of this chapter) to determine 
the characteristics of the fields. 



The first field has been defined. You should now have a clear idea of what 
you want the field to include, where it is located, and the checks and edits you 
want performed against the entry. You are now ready to define the next field. 
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i h6 next fi6iu contains the customer name, i He supenvisur s instructions shov 

the length of this field as 30 positions. A prompt is needed for the field. 
Write this prompt on the work sheet. Consider what restrictions you might 
want to place on the entry. In addition to requiring that the entry be made as 
you did for the first field, consider requiring that this entry be alphabetic only. 
Names generally consist of alphabetic characters and not numeric ones; 
therefore, specify the field as alphabetic only. Look at the sample work sheet 


Display Screen Layout Sheet 















You now have two fields defined; these fields are in the same record. Look 
again at the source document; you will find that the fields for the street, city, 
and state are next. Using the same procedure that you used for previous 
fields, define the street, city, and state fields in the following way. 


Display Screen Layout Sheet 


COLUMN 



Getting Started Using DE/RPG 29 














One of the last fields to define is the customer number field. The operator 
needs to know what to place in this field. Use the literal CUSTOMER NUMBER. 
If you specify a literal, it will not be written on the diskette, and it will remain 
on the display to guide the operator until the record advances. There is no 
particular advantage in using literal in the example. It simply allows you to 
learn how to use both types of prompting messages. 
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The literal is separate from the entry field for the customer number. Define the 
customer number field as you defined previous fields. r '' r '- ! ^- r +h - f - !! 
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customer numbers are five positions long; require the operator to fill all field 


positions before-exiting from the field. 
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Next, you must mark the record with an H as instructed by the supervisor. 
Because this mark must be included in the diskette record, do not use a literal. 
Remember, literals are not written on the diskette record. Use the insert 
function. Simply note on the work sheet that the record is to be marked with 
an H (which will be inserted automatically). The next chapter will describe how 
to specify an insert. 



All fields have been defined. There is one more thing to consider. The 
operators will be able to determine how many positions are in each field by 
looking at a number on the status line. It would be more convenient, however, 
if you showed them the length of the field on the display. You can do this by 
using one of the display attributes: column separators (I), underlining ( ), 

or reverse image (■). This example arbitrarily uses the underlining display 
attribute for all input fields. Be aware that using display attributes requires a 
display position before and after the field. The position required by the display 
attributes is not shown on the work sheets. 
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SUMMARY OF CHAPTER 3 

You have designed the displays that the operator will use to enter information 
from the customer address file. 

In this chapter, you have: 

• Looked at the source document used for the job 

• Received instructions about the formats for the records on the diskette 

• Designed display layouts to match the formats of the source document 

• Specified checks and edits to be performed against entries in the fields to 
ensure accurate entry 

Try to answer the following questions before you go to the next chapter to 
learn how to describe the displays on the A specification: 

1. Identify the first job. In your own words, describe the instructions using 
the following fill-in-the-blank entries. 

a. What is the source document that is being used for the job? 

b. What will the resulting data set consist of? 

2. How many record types are in the job? (1, 2, or 3)_ 

3. There are 7 data fields and one literal on the display. Name the data 
fields and list the literals. 


Check your answers against the answers provided in Appendix A. If you have 
difficulty answering these questions, reread the chapter. 



Chapter 4. Using the A and Z Specifications to Describe the Master Customer 
Identification Job 


The display design for the first example is complete. This design included the 
placement of the fields on the display and descriptions of the checks and edits 
or automatic functions to be used for the entries. This chapter describes the 
entries required on the A and Z specifications to define the display designed in 
Chapter 3 and to define the job and format characteristics described in the 
instructions from your supervisor. 

You will need blank Z and A specifications and the work sheets you used to 
define the fields on the display (see Figure 3). 



IBM 5280 DATA DESCRIPTION SPECIFICATIONS 

TTT" 



1 


Display Work Sheets 




Figure 3. Materials You Will Need to Describe the Job 


You will use the Z specification to specify the job and format characteristics. 
You will use the A specification to describe the display fields, record, and files 
for this job. A minimum description for each data-entry job is required. Figure 
3 illustrates the minimum description. 
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Figure 4 (Part 1 of 2). Sample Program Description 
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Q F defines this line as a file description statement. Q This is a field description statement. Only the length and usage 

DEVICE(CRT) identifies it as being for the display. columns are required. 

DSPSIZ describes the size of the display. 

(The first parameter is the number of lines and Q F defines this line as a file description statement. 

the second parameter is the number of columns). DEVICE(DISK X'4000' specifies it as the file for the diskette. 

If this is the only diskette file statement, the name must 

Q R defines this line as a record description statement. be the same name used as the parameter for the TFILE 

The name identifies the record for the enter mode. keyword on the Z specification. 

This name must match a format name on the 

Z specification. 

..m 111111 n ................... 


1 2 3 4 5 6 7 8 9 10 11 t2 13 14 15 t6 17 18 19 20 21 22 23 2425 26 27 28 2930 31 32 33 34 35 36 3/ 38 3940 41 4243 44 45 46 4? 48 4950 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 ?9 80 
'Number of sheets per pad may vary slightly. 


Figure 4 (Part 2 of 2). Sample Program Description 
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Look at the upper right corner of both the Z and A specifications. This corner 
contains capitalized words or abbreviations. These keywords tell DE/RPG what 
you want it to do. The information that follows the keyword is called a 
parameter. CHECK(BY) is an editing function in which CHECK is the keyword 
and BY (which stands for bypass) is the parameter. This editing function fills 
the associated fields with blanks. 

There are a few, simple rules you will have to learn in order to use the 
keywords. For example, all keywords must be capitalized. They must begin in 
column 55 of the Z specification and in column 45 of the A specification. The 
back of the A and Z specification forms lists the keywords and parameters that 
are available and briefly describes their functions. 

When you have completed this chapter, you should be able to create a job that 
uses the same format for entry and review and uses the same format to 
display data and write data on the diskette. The specific concepts you will 
learn in this chapter are: 

• How to specify fields, records, files, formats, and jobs 

• How to describe literals, prompts, and inserts 

• How to describe checks and edits 

• How to mark a record type for later identification 


DESCRIBING THE FIELDS ON THE A SPECIFICATION 

For this example, begin on the fourth line of your A specification. This will be 
the location of your first field description. A file and record description must 
precede the field description; by beginning on line 4, you are leaving space to 
include these later. You are starting with the field descriptions rather than the 
record or file description because the display fields have already been designed 
on the work sheets. Once the fields are described on the A specification, it is 
simple to add the necessary record and file descriptions. 



As you look at the work sheet for the display, notice that the first field is the 
corporation name. Review the supervisor's instructions and your entries on the 
work sheet; the field name is CORP. Starting at column 19 on the A 
specification, write the field name. It is not necessary to name fields if they 
will not be referenced elsewhere. Naming fields increases the program size. 
Field names can be no more than 6 characters long. Refer to the following 
sample as you learn what entries are needed to specify this field. 
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Next, look at columns 30 through 34. These columns specify the field length. 
This number (30) must be right-adjusted (which means that it must end in 
column 34). Because you did not specify that the entry be a certain data type 
(such as numeric only) or that it be used in calculations, leave columns 35 
through 37 blank. A blank is equivalent to an alphabetic field. 
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Column 38 is the usage column. Each field definition must have an entry In 

this column. There are three choices for basic data entry: I (input), 0 (output), 
and W (work space). / specifies that the field will be displayed during enter 
and review modes. It also allows the operator to enter data into the field and 
allows the field to be written in a diskette record. 0 specifies that the field will 
be displayed, but cannot be altered by the operator or written in a diskette 
record. W prevents the field from being displayed, altered by the operator, or 
written in the diskette record; it can be specified, for example, for fields that 
contain intermediate calculation results. Because this sample program requires 
that the operator enter data into this field and have that data written in the 
diskette record, the entry in column 38 must be I. 

Columns (39 through 44) specify the position of the field on the display. 
Although leading 0's are used in this example, they are not required by 
DE/RPG. The numbers entered in columns 39 through 44 determine the line 
and column positions on the display. If you do not use these columns, the first 
field is in line 3 column 1 and all fields that follow are strung together in 
succession across the display. The location of a field on the display is up to 
you. Although this field began in column 1 on the display work sheet, it must 
be positioned in column 2 in the program. Because the field met the following 
conditions, its display attribute would have been ignored once the field was 
exited: The field was (1) on line 2 column 1, (2) used with a prompt, and (3) 
used a display attribute. To preserve the underline attribute and still be able to 
use a prompt, the field must be positioned on line 2, column 2. 

Columns 45 through 80 contain the prompts, literals, automatic functions, and 
checks and edits for the field. The keyword PMT (which stands for prompt) 
must be used for all messages you want displayed on line 1 (row 2) of the 
display. The wording for the prompt follows the keyword and must be 
enclosed in parentheses. 

Notice that the prompt wording exceeds the space provided by columns 45 
through 80. The + continuation character allows you to continue the wording 
to the next line on the A specification. When you continue a field description, 
columns 7 through 44 of the subsequent lines must be blank. The two 
continuation characters are + and -. Basically, the difference is that DE/RPG 
does not count beginning blanks starting in position 45 on the next line when 
the + continuation character is used. See the DE/RPG Reference Manual for 
additional details about continuation characters. 

The first edit, CHECK(DR), is on the line following the wording for the prompt. 
This line skipping is not required by DE/RPG. Only a blank between keywords 
and parameters is necessary. Line skipping is used in the example, because it 
makes the program easier to read. No continuation character is required 
because the keyword and parameter are complete. The CHECK(DR) keyword 
and parameter satisfy the requirements for a field that must have operator 
entry. DR means data required; the operator must enter at least one nonblank 
character into the field. The DSPATR(UL) keyword and parameter stand for 
display attribute underline. This keyword and parameter will cause the system 
to underline all positions of the field to identify the field length to the operator. 
The first field description is complete. 



The next field is the customer name. The name of the field is CUSN. 
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Notice that all descriptions, except the entry in column 35, are similar to those 
for the first field. Column 35 defines the data type that is acceptable for field 
entry. Remember that you noted that this field should be alphabetic only. The 
X in this column specifies that all entries be edited to accept only alphabetic 
characters. The DE/RPG Reference Manual contains descriptions of the 
possible entries in this column. 
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The next three fields (STREET, CITY, and STATE) are similar to the preceding 
fields. Try to describe them on the A specification without looking at the 
sample. 
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The next field does not have a name. It is the literal for the customer number 
field. Notice that this field has no length specified and that it has an 0 in 
column 38. Literals do not have length entries. They are always 0 (output) 
usage because they are not written in the diskette record. The wording for the 
literal is within apostrophes ( ' ) which tell DE/RPG that this is a message. All 
literal messages must be enclosed in apostrophes. 


IBM 
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The customer number entry field is next. It introduces one new function: BC. 
BC stands for blank check. Along with DR, this parameter requires the 
operator to enter data with no blanks in the entire field. Because both the DR 
and BC parameters are related to the CHECK keyword, they can be grouped 
within the same parentheses. However, they must have a blank between them 
These parameters require the operator to both enter and fill the field. 
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The next field to define after the customer number field is a field that contains 
no data. This field was not defined on the work sheet. You know the field is 
required because the supervisor's instructions told you to place the H marker in 
the last position of the diskette record. These instructions also told you that 
the record is 150 positions long. If you add the fields that have been defined 
for the record, you will find the total is 146. Because the H is to be in position 
150, a field of blanks is needed to pad the records. 

The CHECK(BY) keyword and parameter will leave a field of blanks with a 
specified length in the diskette record without operator entry. BY stands for 
bypass. The result is that the H in the next field is automatically inserted into 
position 150 of the diskette record. 

To determine that the H will be in position 150 of the record, add the entries 
in the length columns for each field. Next, subtract the total from the mark 
position 150; this calculation will tell you the length of the blank field. 

30 Corporation name 

30 Customer name 

30 Street 

30 City 

20 State 

+ 5 Customer number 149 Positions available up 

- to last postition 

- 145 Total field positions 
145 Total field positions - 


4 Blanks needed 
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Therefore, the iength entry in the coiumn for the CHECK(BY) field should be 4. 
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The last field is the marker (H) for the record type. Use the insert function to 
place the H in the diskette record. 
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The usage column contains an I because you want this mark written in the 
diskette record. The insert function automatically includes the character H in 
the record without operator entry. Notice that the H is enclosed in 
apostrophes. The apostrophes mean that the H is character data. Only named 
fields, arithmetic expressions, or constants (either all character or all numeric) 
can be used with the insert function. The DE/RPG Reference Manual describes 
the insert function in detail. 

You have completed the description of the fields and have defined all the 
checks, edits, and automatic functions required for the job. The next step is to 
describe the record. 
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DESCRIBING THE RECORD ON THE A SPECIFICATION 


The third line of the A specification is the location of the record description. 
Place an R in column 17. The R identifies the following field descriptions as a 
description of one record. No entry appears in this column for the field 
descriptions. The only other information that is required for the record 
description is a name. This name must begin in column 19 and can be no 
longer than 8 characters. The example uses the name HEADER to identify the 
record. 


IBM 


International Bul'nei* Machine! Corporation 


IBM 5280 DATA DESCRIPTION SPECIFICATIONS 


Printed in U.S.A 


job No masthead 

Dataset 

Keying 

Instruction 

Grao hi c 








Operator 

Date 










ferOTSTOMER 
IDENTIFICATION JOft 


Page 

2 


9 - 


3 

Reserved 

1 12 13 14 15 16 

r 

P 

<r 

1 

E 

Z 

17 


dataset/' Record/ 
r ield/Table Name 

9 20 21 22 23 24 25 26 

tr 

27 28 29 

Length 

30 31 32 33 3 


* 

ll 


Location 

| Editing ] 

Checks=CHECK (code . . . i 

ME 

Functions 

Screen 

Auto DuW AD Mandatot y £f*ti V 

AutcSkip AS Mandatesy fill 

Blank Check BC Hi Ad|-Blank f'M 

AtJXDUP (namel RANGE How high! 

AUXST Inamel RANGET (table |mde*| 1 

Sequence 

1 2 3 4 5 

£ 

6 


Pos 

42 43 4 

Data Requ red DR Self Check nu EDTCDE (code float) SETOf f.nd! 

Oup D sable DD *. c G fCheck Gent ERROR (code ('message |i SETONimdt 

Eiettt E»‘t Requited FE ** Modulus EXSR (subtout'fel SHfET ( 4 *hiHi 

Lowe* Caw LC INSERT (fUJI'« fldnl SUB (name! 

LOOK (table i Title*SUBST (tablet table? !nde*li 

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 




IQ 

11 



li 

ii 

11 

i 

| 


T 

r 

LL 

TT 

r 

I 

jj 

I 

I 

LL 

I 


I 

T 

I 

_ 

rr 

n 

I 


n 

T 


r 

r 

T 

T 

_ 


i 

T 

r 

r 



r 

T 

T 

n 

n 

TT 

i 






!B 

li 



11 

ii 

IN 

i 

| 


II 

i 

II 

1 


II 

« 



1 


II 

1 

1 

II 

1 

1 

III 

II 

1 

ii 

ll 

1 

l 

1 

1 



1 

i 


1 



1 


II 


i 

i 

1 







IQ 

II 



IN 

11 

II 

i 

ii 


ru 

LJ 

u 

m 

ft 


«! 

l 



1 


II 

1 

1 

II 

1 

1 

III 

II 

1 

ii 

II 

1 

I 

1 

1 



1 

i 


1 



1 


II 


i 

i 

1 







IQ 

li 



11 

ii 

11 

l 

1 


ii 

b 

a 

1 


11 

I 



5 


II 

Q 

l 

ft 

II 

n 

m 

:d 

1 

10 

ED 

1 

0 

1 

0 



1 

0 


1 



1 


(EG 



3 

0 


D 

BB 




IQ 

li 



i« 

li 

11 

I 

1 


II 

i 

i 

1 


IS 

a 



1 


SI 

1 

1 

II 

1 

1 

IEG 

i 

1 

ii 

II 

1 

l 

1 

1 



1 

i 


1 



1 


II 


i 

1 

1 


1 





IQ 

11 



1* 

li 

ii 

« 

1 


II 

i 

i 

1 


11 

i 



1 


II 

1 

1 

II 

1 

1 

ise 


1 

m 

m 

(3 

0 

1 

1 



1 

i 


1 



1 


II 


i 

1 

1 







IQ 

li 



li 

li 

!« 

« 



II 

i 

i 

1 


«! 

i 



1 


11 

1 

1 

II 

1 

1 

ll 

SB 

0 

HE 

m 

EE 

B 

0 

1 



1 

I 


1 



1 


II 


i 

1 

1 







IQ 

li 



n 

li 

11 

1 



IE 

@ 

u 

1 


ii 

i 



l 


II 

3 

1 

m 


a 

m 

:b 

R 

IS 

EB 

1 

(3 

1 

2 



ffi 

i 





2 


m 


i 

1 

1 







IQ 

II 



ii 

«i 

i« 

l 



II 

i 

i 

1 


II 

i 



1 


II 

1 

1 

ii 

1 

1 

ii 

m 

1 

191 

m 

(3 

a 

1 

1 



1 

i 


1 



1 


ii 


i 

1 

1 







IQ 

li 



i« 

*1 

f» 

l 



II 

i 

i 

1 


II 

i 



1 


Kl 

1 

1 

ii 

1 

1 

ii 

SB 

0 

BE 

3H 

IE 

B 

a 

1 



1 

i 


1 



1 


ii 


i 

1 

1 







IQ 

li 



ii 

li 

1* 

« 



m 

E 

@ 

1 


II 

i 



l 


II 

U 

L 

m 

E 

0 

use 

:d 

0 

IS 

Eu 

1 

0 

i 

m 



3 

Q 

m 

@ 

B 


G 


m 

33 

m 


1 







IQ 

11 



ii 

«! 

IK 

i 



II 

1 

i 

1 


li 

« 



1 


II 

1 

1 

ii 

1 

1 

11 

m 


QK 

m 

0 

B 

n 

i 

I 



I 

i 



_ 



I 

r 

I 

TT 

n 

i 






IQ 

li 



li 

II 

IK 

1 



II 

1 

i 

1 


ii 

« 



1 


11 

1 

1 

ii 

1 

1 

11 

SB 

0 

BE 

SB 

EE 

1 

B 

ll 

ii 


i 

II 

ll 

1 



1 

1 

ll 

li 


III 

hi 

ll 






IQ 

li 



ii 

li 

11 

i 



m 

Q 

D 

1 


li 

« 



l 


11 

E3 

S 

m 

B 

El 

IBS 

m 

R 

IS 

EB 

(1 

9 

1 

DG 

m 


s 

Di 

iB 

fl 



1 


ii 

ii 


III 

in 

ii 






IQ 

11 



ii 

li 

11 

i 



ii 

1 

1 

1 


li 

i 



1 


il 

1 

1 

ii 

1 

1 

11 

El 

@ 

m 

m 

S 

B 

1 

II 

ii 


i 

II 

II 

1 



1 

1 

ii 

n 


III 

hi 

ii 






IQ 

li 



ii 

li 

11 

i 



ii 

1 

1 

1 


11 

i 



1 


11 

1 

1 

ii 

1 

1 

11 

m 

0 

BE 

m 

I 

B 

0 

II 

ii 



II 

II 

1 



1 


ii 

ii 


III 

in 

ii 






IQ 

11 



ii 

11 

11 

i 



m 

0 

0 



11 

* 



5 


II 

H 

E 

as 

0 

0 

IBS 

:b 

H 

IS 

Eu 

§ 

B 

1 

B2 



§ 

B! 

m 

1 



9 

3 

in 

!S 


m \ 

in 

m 


90 




IQ 

If 



ii 

If 

11 

i 



ii 

1 

1 

1 


»i 

i 



1 


II 

1 

1 

n 

1 

1 

11 

ii 

H 

II 

II 

1 

1 

1 

II 

ii 


i 

II 

ii 

1 



1 

1 

ii 

II 


hi 

hi 

ii 


II 




IQ 

if 


1 

n 

if 

i§ 

■ 



ii 

1 

■ 

1 


if 

i 



1 


II 

1 

1 

ii 

1 

1 

11 

El 


Ql 

m 

a 

Q 

: 

I 

T 



A 

r 






A 

T 

T 

TT 

n 

r 






IQ 

If 


! 

ii 

II 

Si 

i 



ii 

1 

1 

1 


11 

i 



1 


II 

1 

1 

ii 

1 

1 

11 

SB 

0 

BE 

m 


B 

n 

II 

II 

1 

i 

II 

ii 

1 

1 

i 

1 

1 

II 

II 

II 

III 

hi 

ii 




1 2 3 4 5 6 7 8 9 10 H1V 13 14 1b 16 

‘Number of sheets per pad may vary slightly. 


? 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 3/ 38 39 40 41 42 43 44 45 46 4 7 48 49 50 51 62 53 54 55 56 57 58 59 60 6’ 6? 63 64 66 66 67 68 69 70 71 72 73 74 75 76 7 7 78 79 80 


The record description is complete. The next description, the iast one for the A 
specification for this example, is the description for the files. 
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DESCRIBING THE INPUT/OUTPUT DEVICE FILES ON THE A SPECIFICATION 


On the first line on the A specification, place an F in column 17. The F 
identifies the line as a file description statement. Remember that Chapter 2 
described two basic kinds of files: display and diskette. This line describes the 
display file. The name INPUT is arbitrary. You can use any name you wish for 
the display file. In column 45 write the keyword DEVICE followed by the 
parameter, CRT. The 150 in columns 32 through 34 tells the system that each 
record is to be 150 positions long. All records in a data set are the same 
length. Shorter records are padded with blanks to make them the specified 
length. 

Next, you must tell the system what display size you are using. Write DSPSIZ 
for display size followed by the parameter (6 80). The (6 80) refers to 6 rows 
and 80 columns. 
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One more fi!e description is needed—the ons that describes the diskette file It 

this file description is not provided, no records can be written into the diskette 
data set. Go to the line on the A specification that follows the last field 
description and write the diskette file description. The name is MASTHEAD as 
defined by the instructions for the job (the length of 150 must be the same as 
the display file); the DEVICE parameter is DISK. The address for the diskette 
drive you are using must also be included as part of the parameter. You 
should be able to find this address on the outside of the diskette drive. For 
this example, the address is 4000. 

Note: If you are not using drive 4000, substitute the number of the drive you 
are using wherever the drive number 4000 appears. 

Look at the example if you have difficulty. Because the instructions tell you 
that the name for the data set is MASTHEAD, this is the name you must use 
for the diskette file description. 
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You have completed the descriptions for the files, record, and fields that are 
required for the first sample job. You have completed the A specification 
description and are now ready to define the job characteristics on the Z 
specification. 


























DESCRIBING THE JOB CHARACTERISTICS ON THE Z SPECIFICATION 


The entries on the Z specification tell the system the characteristics of the job. 
This includes information such as: 

• Job name 

• Availability of the data set to other users 

• Name of the diskette data set 

• Order in which formats are to be used 

The first thing that must be described on the Z specification is the job name 
and the name used for the data set on the diskette. On the first line of the Z 
specification, place a J in column 7. 
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The J tells DE/RPG that this Is a job description statement. Place the name of 
the job in columns 10 through 17; it can be no longer than 8 positions. The 
instructions tell you to use the name MASTER. Beginning in column 55, write 
the keyword TFILE followed by the parameter (MASTHEAD). You should 
recognize MASTHEAD as being the name of the diskette data set you provided 
in the diskette file statement on the A specification. The name that you specify 
for the diskette data set on the A specification must always be the same as 
the name you specify for the parameter of the TFILE keyword on the Z 
specification. Now write the number 10 as part of the parameter: (MASTHEAD 
10). The 10 tells DE/RPG to insert a deleted record after every 10 records that 
are written to the data set. You determine the frequency of deleted records. 
These deleted records are optional and do not have to be specified; however, 
they make the insertion of future records in the data set faster. 

The job description is complete, but the format description on the Z 
specification remains to be defined. 


DESCRIBING THE FORMATS ON THE Z SPECIFICATION 

Go to the line following the job description statement. Place the format 
identifier (ID) XI in columns 8 and 9. This ID was provided in the supervisor's 
instructions. The characters XI identify the format. Next, write the format 
name starting in column 10. Notice that the name of the format is the same as 
the name of the record on the A specification. Because the program has only 
one record, there is only one format description. Next, place an E in column 
21. The E stands for entry format. Two types of formats can be defined on 
the Z specification: the entry formats and review formats. The entry format 
information tells DE/RPG to use the field definitions of the matching display 
record name to display information during the enter mode. 
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Finally, define the review format. Place an R rather than an E in column 21. 
Place the format identification (ID) in columns 45 and 46. This tells the system 
to use the record that matches the format ID to display information for the 
update, verify, and rerun modes. The format ID in columns 45 and 46 refers 
back to an entry format which in turn points to a record described for the CRT 
file on the A specification. In this example, the ID is XI. The format name for 
ID XI is HEADER which is also the name of a display record on the A 
specification. 

You have completed the job definition for the master customer file job. Your 
first program is complete. 
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Only two tasks remain before you can use the program to enter customer 
identification information. The first task is entering the program into the 5280 
system. The source entry program is available to help you do this. Chapter 5 
describes how to use the source entry program. Secondly, you must compile 
the program once it is in the system. Chapter 5 also describes this process. 
Once the program has been entered and compiled, it is ready to be used for 
data entry. Chapter 6 shows you how to use the program to enter data. 
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SUMMARY OF CHAPTER 4 


You have completed the descriptions of the job, formats, files, record, and 
fields on the Z and A specifications. Before you proceed, however, try to 
answer the following questions. 

1. Place an A by the items that the A specification describes and a Z by 
those that the Z specification describes: 

a. jobs_ 

b. records_ 

c. files_ 

d. data sets _ 

e. fields_ 

f. formats_ 

g. prompts_ 

h. literals_ 

2. Two files are described in this program. Can you name these files and 
the device that they refer to: 

a. _ 

b. _ 

3. Suppose you are using a larger display and you want to describe a field 
that is located in row 8, column 39. What would be your entries in 
columns 39 through 44 of the A specification? 


4. Which one of the following definitions matches the function of 
CHECK(DR)? _ 

a. Right-adjust with blank fill 

b. Pad the field with blanks 

c. Nonblank entry required 
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5. Where are the identical names required: 


a. Records and formats_ 

b. Files and formats_ 

c. Diskette files and transaction files_ 

d. CRT files and jobs_ 

e. Files and records_ 

6. What does the R on the format line on the Z specification mean? 


Check your answers against the answers provided in Appendix A. If you have 
not been able to answer the questions, begin at Chapter 2 and read through 
the text again. 
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Chapter 5. Entering and Compiling the Program for the Master Customer 
Identification Job 


Review the process involved in using DE/RPG as shown in Figure 2 in 
Chapter 3. You are now ready to begin Step 2. 

This chapter will teach you how to take the information you have gathered on 
the Z and A specifications and enter it into the 5280 system so it can be 
compiled and used. 

Assume that you will be using a system which consists of 32 K bytes of main 
storage, a single display, and two diskette drives (no printer). 

If you are going to use your keyboard/display data station to enter the 
program, you will have to perform the following procedures: 

1. Configure the system with the appropriate partition sizes for the source 
entry program (16 K) and the compiler (9 K). (Generally, this system 
setup will have been done by your supervisor prior to your using the 
system.) 

2. Perform the I PL. 

Note: The IPL must include either SYSCFA or SYSHELP. 

3. Load and use the source entry program to enter the statement 
descriptions from the Z and A specifications. 

4. Load the DE/RPG compiler and describe the conditions of the 
compilation. 


CONFIGURING YOUR SYSTEM AND PERFORMING THE IPL 

The System Control Programming Reference/Operation Manual provides detailed 
procedures for performing the IPL and system configuration. You will need at 
least one foreground partition that is 13 K bytes. 

Once the system has been configured to fit your requirements and has 
completed IPL, you are ready to use the source entry program. 

If an error should occur, refer to the IBM 5280 Message Manual for an 
explanation of the error code and suggested response. 
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USING THE SOURCE ENTRY PROGRAM 


Immediately after the I PL has been completed, this display appears. 



Place the diskette containing the source entry program in drive 4400. If you 
are not using drive 4400, substitute the number for the drive you are using 
wherever drive number 4400 appears in the following samples. 





The responses you should provide are indicated in color on the sample display. 
SYSSEP is the name by which the 5280 recognizes the source entry program. 
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When you have completed the entries shown, press the Enter key. The 
following display appears. 



1_J 


This is the first time you have used the source entry program for entering this 
program, so select the option that says Enter (New). (The only time you select 
option 1 is for the first time you are entering the source DE/RPG program; if 
you use this option any other time, it will erase everything that you had 
previously put in the data set.) 
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Change the data set name to the name of your program (MASTER). Change 
the drive to 4000 because this is the number of the drive that contains the 
diskette on which your MASTER data set will be located. The MASTER data 
set will be your DE/RPG source program. Be sure to place a diskette in drive 
4000. 


0 0007 A 20 40 E 

Enter data for data set open 
Data set name: MASTER 

Device address: 4000 


Press ENTER 



Press the Enter key. If the data set name specified is not on the diskette, a 
display appears requesting you to specify either a retry of the name and device 
entry or the allocation of the data set. (If any other error occurs, prompt 06-82 
is displayed again.) 


0 0001 D Oi 40 

Data set open failed 
Options are 
i. Retry 


2. Allocate 


Select option: Press ENTER 


Select option 2. Because the diskette in drive 4000 does not contain a data 
set named MASTER, you must now allocate the data set as follows. Press the 
Enter key and the allocation display appears. 

0 0001 A 26 D4 E 

Enter data for data set allocate 
Data set name: MASTER 

Device address: 4000 Owner ID: 

Exchange type: I Number of records: 000200 

Press ENTER 06-84 



Enter the number 50 as the number of records entry and use a field exit key to 
leave the field. Press the Enter key. 


You have now allocated a data set named MASTER on the diskette in drive 
4000. The name you provide for this data set can be any acceptable name you 
wish as long as you remember that name and specify it as the source name 
during the compilation. You are specifying that the data set consists of 50 
records. The data set containing the DE/RPG source program must be at least 
as large as the actual program you are entering. It should be larger than the 
program to provide space for additions or changes to the program. 

After choosing option 2, the job specification prompt is displayed. The 
following steps indicate the process involved in entering your program. 
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When you press the Ente ? 1 key the menu for the source entry program 

appears. 


— 

0 OOOi N Oi 40 

SELECT FORMAT: 

1 MENU 

2 JOB SPECIFICATION 

3 ENTRY FORMAT 

4 REVIEW FORMAT 


i 

E 


FILE 

DESCRIPTION 

8 

RECORD 

DESCRIPTION 

9 

FIELD 

DESCRIPTION 

0 

TABLE 

DESCRIPTION 

S 


COMMENT 

CALCULATION 

FMT 0 FOR RECORD IMAGE 

SHIFT LOWER CASE (FMT SO) 




A menu is a programming name given to this type of display that allows you to 
select from a variety of options. 

Before you can understand which option to select, you must understand the 
sequence in which the contents of the Z and A specifications must be entered. 
The normal sequence for entering programs into the 5280 for the source entry 
program is: 

A. Job statement (Z specification) 

B. Entry format statement (Z specification) 

C. Review format statement (Z specification) 

D. Display file statement (A specification) 

E. First record statement (A specification) 

F. Associated field statements (A specification) 

G. Next record statement and its associated field statements (A 
specification) 

H. Diskette file statement for the data set being created (A specification) 

I. Diskette file statements for other data sets used by the program (tables, 
and so on) (A specification) 

Review the contents of your Z and A specifications before beginning. 

Select option 2 from the menu and press the Enter key to begin the process of 
entering your program. 
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After choosing option 2, the job specification prompt is displayed. The 
following steps indicate the process involved in entering your program. 

1. Job specification prompt 


— 

0 0073 A 08 40 000001 2 E 

Z JOB SPECIFICATION 
Name: MASTER 

Options: TFI L.E ( MASTHEAD 10) 

JOBOPT(*N0PMT) TFILE(name n> CFILE(name) EDITCO DATEO 
SHARE/SHARER(names) STATUS<name) PRTFILE (name ) ENTRATRO EXITATRO 



Make the entries indicated in color. Press the Enter key, and the job 
options continued prompt is automatically displayed. 
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Job options continued prompt 


A 26 40 000002 


J 0 B 0 P T10 N 2 C 0 N TIN U E D .S’ I IA R E R ( M A S TI IE A D ) 

.10 B 0 P T ( * N 0 P M T ) T F 1 1... E ( N A M E N ) C F11... E ( N A HI ) E D I I" C 

> I■ ! A R E / S I-I A R E R ( N A M E S ) S T A TIJ S < H A M E ) 


Make no entries, just press the Next Fmt key. The entry format prompt 
is displayed. 

Entry format prompt 


0 0016 A 02 40 000002 3 E 


Z E ENTRY FORMAT 


Format ID: XI 


Name: HEADER 


Repea t 


Position 


Charac ter: 


Next format ID 


Op tions 


SLNO(n) CLRL(n) WRITE(*N0 or name) EOJ 


Make the entries shown and press the Enter key. The entry format 
prompt is displayed again. Make no more entries, just press the Next 
Fmt key. The review format prompt is displayed. 





4. Review format prompt 


- \ 

0 0000 Y 00 Fi 000003 4 E 

Z REVIEW FORMAT 
And(A): 

Position: 

Ch ar ac ter 


Next format ID: xi 



Make the entries as shown and press the Enter key. The review format 
prompt is displayed again. Now press the Next Fmt key to display the 
menu again. 

Select option 5, and press the Enter key. The file description prompt is 
displayed. 

5. CRT file description prompt 


- 

0 0069 A 12 40 000004 5 E 

A FILE DESCRIPTION 
FiLe name: INPUT 
Length: 150 


Usage: Editing: DEVICE(CRT) DSPSIZ(6 80) 

BLKINGO DEVICE( ) LABELO FORMO NUMENTO DSPSIZO L0G0NO INDEXO MARK/VMARK( ) 



Make the entries as shown. Although DSPSIZ appeared on a separate 
line on the A specification sheet, it is correct to enter it as shown if there 
is room. Press the Enter key and the file description prompt is displayed 
again. Press the Next Fmt key to display the record description prompt. 
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6. Record description prompt 


— 

0 0025 A 02 40 000005 6 E 

A RECORD DESCRIPTION 
Record name: HEADER 
Usage: 

Editing: 

DSPATRO RECIDO SPACEA (n) SPACEB(n) SKIPA(nnn) SKIPB(nnn) 

l_ 


Make the entry shown. Press the Enter key and the field description 
prompt is displayed. 


7. 

CORP field description prompt. 





0 0000 A 

00 4E 000007 7 E 





A FIELD DESCRIPTION 





Indicator: 

Name type(K): 

Field name 

CORP 


Length: 30 

Data type: 

Dec i maL posns: 

Usage: I 

L i ne : 

9 

Posn: 2 

Editing : 

FMT<ENTER THE NAME OF THE 

C0RP0RATI+ 




ADD AUXDUP CHECK COMP DSPATR ERROR EXSR 

INSERT LOOK 

PMT RESET 

SEQ 

SHIFT SUBST.., 


l 


Make the entries shown, including the + continuation character. For all 
the field descriptions, use the Field Exit key to leave the length, line, and 
position fields. A + continuation character in the last position of the 
editing field indicates that there is more information to be entered. 

When the field description prompt is displayed, you can: 

• Advance to the editing field of this prompt by pressing the Field Exit 
key several times. Then enter the remaining data and press the Enter 
key. The field description prompt is displayed again; you can now 
enter data for another field. 

• Press the Next Fmt key. The field editing continued prompt is 
displayed (as in step 8). 

• Select a continuation prompt by pressing the Sel Fmt key. Then press 
C (alpha shift) 7, for the prompt ID number. The field editing 
continued prompt is displayed (as in step 8). 

Note: When running SYSSEP, you can select another prompt at any 
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8. CORP field editing continued prompt 


— 

0 0069 A i2 40 000008 C7 E 

A FIELD EDITING continued: ON) CHECK < DR) DSPATR(UL) 

ADD AUXDUP AUXST CHECK COMP DSPATR EDTCDE ERROR EXSR INSERT LOOK PMT RANGE 
RANGET RESET SEQ SETOF SETON SHIFT SUB SIJBST TADD TSUB XCHK 




This prompt is displayed only if you requested a continuation prompt 
during the previous step. Make the entries shown, then press the Enter 
key. The field editing continued prompt is displayed again. Press the 
Next Fmt key to display a field description prompt. 

Note: Although items such as CHECK(DR) and DSPATR(UL) were listed 
on separate lines on the A specification sheet, it is correct to enter them 
on the same prompt if there is enough room in the editing field. 

9. CUSN field description prompt 


— 

0 0073 A 08 40 000009 7 E 

A FIELD DESCRIPTION 

Indicator: Name type(K): Field name: CUSN 



Length: 30 


Data type: Decimal posns: Usage: I Line: 2 Posn: 4i 

Editing: PMT(ENTER THE CUSTOMER NAME) 

ADD AUXDUP CHECK COMP DSPATR ERROR EXSR INSERT LOOK PMT RESET SEQ SHIFT SUBST... 




Make the entries shown, then press the Enter key. The field description 
prompt is displayed again. You can continue entering data in the field 
description prompt, or you can request a field editing continued prompt 
as outlined in step 7. 
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10. CUSN fieid editing continued prompt 


— 

0 0065 A 16 40 000010 C7 E 

A FIELD EDITING continued: CHECK(DR) DSPATR(UL) 

ADD AUXDUP AUXST CHECK COMP DSPATR E.DTCDE ERROR EXSR INSERT LOOK PMT RANGE 
RANGET RESET SEQ SETOF SETON SHIFT SUB SUBST TADD TSUB XCHK 





This prompt is displayed only if you requested a continuation prompt 
during the previous step. Make the entries shown, then press the Enter 
key. The field editing continued prompt is displayed again. Press the 
Next Fmt key to display a field description prompt. 

11. STREET field description prompt 


- \ 

0 0074 A 07 40 OOOOii 7 E 

A FIELD DESCRIPTION 

Indicator: Name type(K): FieLd name: STREET Length: 30 

Data type- Decimal posns- Usage: I Line: 3 Posn: 1 

Editing: PMT(ENTER THE STREET ADDRESS) 

ADD AUXDUP CHECK COMP DSPATR ERROR EXSR INSERT LOOK PMT RESET SEQ SHIFT SUBST... 




Make the entries as shown, including a continuation character in the last 
position of the editing field. Press the Enter key. The field description 
prompt is displayed again. You can continue entering data in the field 
description prompt, or you can request a field editing continued prompt 
as outlined in step 7. 
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12. STREET field editing continued prompt 


{ 0 


\ 


A FIELD EDITING cont inued : CHECK( DR ) DSPATR(UL) 


ADD AUXDUP AUXST CHECK COMP DSPAIR EDTCDE ERROR EXSR INSERT LOOK PMT RANGE 
RANGET RESET SEQ SETOF SETON SHIFT SUB SUBST TADD TSUB XCHK 




This prompt is displayed only if you requested a continuation prompt 
during the previous step. Make the entries as shown, then press the 
Enter key. The field editing continued prompt is displayed again. Press 
the Next Fmt key to display a field description prompt. 

13. CITY field description prompt 


- \ 

0 0064 A I? 40 000014 7 E 

A FIELD DESCRIPTION 

Indicator: Name type(K): FieLd name: CITY Length: 30 

Data type: Decimal posns: Usage: I Line: 3 Posn; 41 

Editing: PMT(ENTER THE CITY) 


ADD AUXDUP CHECK COMP DSPATR ERROR EXSR INSERT LOOK PMT RESET SEQ SHIFT SUBST..* 



Make the entries as shown, and press the Enter key. The field 
description prompt is displayed again. You can continue entering data in 
the field description prompt, or you can request a continuation prompt as 
outlined in step 7. 
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14. CITY field editing continued prompt 


— 

0 0065 A 16 40 000015 C7 F 

A FIELD EDITING continued CHECK(DE) DSF'ATR(UL) 

ADD AUXDUF' AUXST CHECK COMP DSPATR EDTCDE ERROR EX,S'R INSERT LOOK PMT RANGE 
RANGET RESET SEQ SETOF SETON SHIFT SUB SUBST TADD TSUB XCHK 

1 _ 

This prompt is displayed only if you requested a continuation prompt 
during the previous step. Make the entries as shown, then press the 
Enter key. The field editing continued prompt is displayed again. Press 
the Next Fmt key to display a field description prompt. 

15. STATE field description prompt 

/ - 

0 0000 A 00 60 000016 7 EE 

A FIELD DESCRIPTION 

Indicator Name type(K) FieLd name: STATE Length- 20 

Data type: Decimal posns: Usage: I Line: 4 Posn: 1 

Editing; PMT(ENTER THE STATE -. SPELL OUT IN¬ 

ADD AUXDUF' CHECK COMP DSF’ATR ERROR EXSR INSERT LOOK PMT RESET SEQ SHIFT SUBST... 

1 _ 


Notice that the continuation character is a minus sign. The minus sign is used 
in this example because the next character to be entered in the editing field is 
the blank between 'In' and 'Full'. A + continuation character does not allow a 
leading blank in a continued editing field. By using a - continuation character, 
you can continue with the blank in the first position of the next prompt. 

Make the entries as shown, then press the Enter key. The field description 
prompt is displayed again. You can continue entering data in the field 
description prompt, or you can request a field editing continued prompt as 
outlined in step 7. 
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16. STATE field editing continued prompt 


0 0072 A 09 40 000017^^C7E 


A FIELD EDITING continued: FULL) CHECK (DR) DSPATR (UL) 


ADD AUXDUP AUXST CHECK COMP DSPATR EDTCDE ERROR EXSR INSERT LOOK PMT RANGE 
RANGET RESET SEQ SETOF SETON SHIFT SUB SUBST TADD TSIJB XCHK 



\ 



This prompt is displayed only if you requested a continuation prompt 
during the previous step. Make the entries as shown, then press the 
Enter key. The field editing continued prompt is displayed again. Press 
the Next Fmt key to display a field description prompt. 

17. CUSTOMER NUMBER literal field description prompt 


- \ 

0 0063 A 18 40 000018 7 E 

A FIELD DESCRIPTION 

Indicator: Name type(K): FieLd name: Length: 

Data type: Decimal. posits : Usage: 0 Line: 4 Posn 30 

Editing: 'CUSTOMER NUMBER: 1 


ADD AUXDUP CHECK COMP DSPATR ERROR EXSR INSERT LOOK PMT RESET SEQ SHIFT SUBST*.. 



Make the entries as shown, then press the Enter key. The next field 
description prompt is displayed. 
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18. Number field description prompt 



Make the entries as shown, then press the Enter key. The next field 
description prompt is displayed. 

19. Bypass field description prompt 



Make the entries as shown, then press the Enter key. The next field 
description prompt is displayed. 
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20. MARK field description prompt 


- \ 

0 0056 A 25 40 000022 7 E 

A FIELD DESCRIPTION 

Indicator: Name type(K): FieLd name: HARK Length: 1 

Data type: Dec i ma L posns: Usage: I Line: 4 F'osn: 80 

Editing. INSERTIN') 


ADD AUXDUP CHECK COMP DSPATR ERROR EXSR INSERT LOOK PMT RESET SEQ SHIFT SUBST... 



Make the entries as shown, then press the Enter key. The field 
description prompt is displayed again. Because you have finished 
entering field descriptions, use the Sel Fmt 5 key sequence to display the 
file description prompt. 

21. Diskette file description prompt 


-- 

0 0065 A 16 40 000023 5 E 

A FILE DESCRIPTION 
Fi Le name: MASTHEAD 
Length: 150 


Usage: Editing: DEOICE(DISK X * 4000') 

BLKINGO DEVICE( ) LABELO FORMO NUMENTO DSPSIZO L0G0NO INDEXO MARK/VMARK( ) 



Make sure a file description prompt is displayed. Make the entries as 
shown, then press the Enter key. The prompt is displayed again. Use the 
End of Job key sequence to end the process of entering the program. 
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USING THE DE/RPG COMPILER 


Be sure that the diskette containing the DE/RPG compiler is in diskette drive 
4400 (or the drive you have been using instead of 4400). Respond to the 
prompt that appeared at the conclusion of the source entry program in the 
following way. 
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Press the Enter key and the following display appears. 


0 OOOi A 16 E2 

DE/RPG COMPILER 

Enter the foLLowing information for Source file. 

Data set name: SYSIN 

Device address: 4000 

Press ENTER 12-01 


The values that appear on the display are the default values. Change these as 
shown below. 


0 0007 A 10 40 

DE/RPG COMPILER 

Enter the foLLowing information for Source fiLe. 

Data set name: MASTER 

Device address: 4000 

Press ENTER 12-01 


The name of the source file must be the name you gave the source DE/RPG 
program which you used the source entry program to create. For this example. 


jo MACTCD Tk>< 


drive is 4000 because you will be using the 


diskette that has remained in drive 4000 (or its equivalent for your system). 
Press the Enter key. 



The next two displays that appear are for work files. Accept both these 
displays as provided. 



Press the Enter key to continue. 



Entering and Compiling the Program for the Master Customer Identification Job 









Press the Enter key and the following display appears. 


— 

0 OOOl D 01 40 

Data set OBJECT not found on device 4000 

Options are 

1. Reenter name and device 

2. Allocate space for data set 

Select option: Press ENTER 



12-02 


This display provides an opportunity to either reenter the information for the 
object data set or allocate it. Choose option 2 to allocate the data set. Press 
the Enter key. 

The final display in this example requests you to select the type of listing you 
want. 

— 

0 0001 D 01 40 

Select listing option 

1. List to printer 

2. List to diskette 

3. No List 


Select option: Press ENTER 12-03 



A printout is provided to show you the appearance of the output when you 
select option 1 (list to printer). Option 1 is preferred if you have a printer 
available. If you choose 2, the output is written to a data set on the diskette; 
however, you must have preallocated two data sets on the diskette to receive 
the output. 
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You are ready to proceed to Chapter 6 where you will actually use the program 
you wrote in Chapters 3 and 4 and compiled in Chapter 5. 


DE/RPG COMPILER VOMOO 




*Source file. MASTER 






*0bject fi le. OBJECT 




00001 


ZJ 

MASTER 




TFILE(MASTHEAD 10) 

00002 


Z 

XiHEADER E 





00003 


z 

R 




XI 

00004 


A 

F INPUT 

150 



DEVICE(CRT) DSPSIZ(6 80) 

00005 


A 

R HEADER 





00006 


A 

CORP 

30 

I 

2 

2PMT(ENTER THE NAME OF THE C0RP0RATI+ 

00006 


A 





ON) CHECK(DR) DSPATR(UL) 

00007 


A 

CUSN 

30 

I 

2 

41PMT(ENTER THE CUSTOMER NAME) 

00008 


A 





CHECK(DR) DSPATR(UL) 

00009 


A 

STREET 

30 

I 

3 

1PMT(ENTER THE STREET ADDRESS) 

00010 


A 





CHECK(DR) DSPATR(UL) 

00011 


A 

CITY 

30 

I 

3 

41PMT(ENTER THE CITY) 

00012 


A 





CHECK(DR) DSPATR(UL) 

00013 


A 

STATE 

20 

I 

4 

1PMT(ENTER THE STATE —• SPELL OUT IN¬ 

00013 


A 





FULL) CHECK(DR) DSPATR(UL) 

00014 


A 



0 

4 

30'CUSTOMER NUMBER:' 

00015 


A 

NUMBER 

5 

I 

4 

47CHECK(DR BC) DSPATR(UL) 

00016 


A 


4 

I 


CHECK(BY) 

00017 


A 

MARK 

1 

I 

4 

80INSERT('H’) 

00018 


A 

F MASTHEAD 

150 



DEVICE(DISK X'4000') 


* 

ADDR 

CONSTANT 






* 

02F0 

'ENTER THE NAME OF 

THE CORPORATION 

' 


* 

0311 

’ENTER THE CUSTOMER 

NAME' 





* 

0328 

'ENTER THE STREET ADDRESS' 





* 

0340 

'ENTER THE CITY' 






* 

034E 

'ENTER THE STATE — 

SPELL OUT 

IN 

FULL ' 


* 0372 1 CUSTOMER NUMBER:' 

* 0382 'H' 

* 

* ADDR NAME 

* 0383 CORP 

* 03A1 CUSN 

* 03BF STREET 

* 03DD CITY 

* 03FB STATE 

* 040F NUMBER 

* 0414 MARK 

* 

* OBJECT PROGRAM MAP 
^ROUTINE ENTRY POINTS 

*EP RTN DESCRIPTION 

*0700 RG99 - End of job processor 
*0764 RG80 - Verify mode error display 
*0824 RG86 - Physical, buffer allocation 

*08F0 RG01 - Keyboard external status routine 

*0B24 RG31 - Diskette external status routine 

*0B8C RG36 - Diskette I/O management routine 

*0C4C RG50 - I/O driver routine 

# 

*0FE8 Z-spec driver entry point 
*1170 Program entry point 
* 5,632 Is the program length. 
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Chapter 6. Using the Master Customer Identification Job to Enter Data 


Make sure the object program is in diskette drive 4000 (or its equivalent for 
your system). Before you can actually begin entering data using the program 
you have written, you will have to answer the prompts to the following 
displays. Use the responses that are shown below. 



Enter the information that loads the object (OBJECT) program and press the 
Enter key. The following prompt is displayed. 



1_J 


Select option 1. You have selected the enter (new) mode on this display 
because this is the first time you are using the program for this data set. 
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The following prompt is displayed. 


— 

0 0000 D 00 F0 E 

Enter data for data set allocate 
Data set name: MASTHEAD 

Device address: 4000 Owner ID: 

Exchange type: I Number of records: 000050 

Press ENTER 


\ 


06-84 




In the number of records field enter 50 and use the field exit key. The number 
50 is arbitrary. It will provide 50 records for you to use in entering data using 
the OBJECT program. 

Press the Enter key. The first display of the program appears: 


r o 0001 A 30 40 000001 XI E I 

ENTER THE NAME GE THE CORPORATION I 


CUSTOMER NUMBER 




Notice that the prompt is on line 2 of the display and the cursor is in the first 
position of the first field. Try to exit the first field without entering data. You 
are not allowed to bypass the field without an entry because you specified the 
CHECK(DR) edit against the field. An error flashes on the status line. Press 
the Reset key and return to the first position of the field. Enter the data shown 
in the following display. 
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0 0021 X 30 40 00000i XI E 

ENTER THE NAME OF THE CORPORATION 

MORI l i I E BA I TER r CO. _ 


CUSTOMER 


NUMBER 


Use a field exit key to advance to the next field. Enter the information on the 
displays as shown. Use a field advance key after each field. 



0 0047 


A 30 40 000001 


Xi E 


ENTER THE CUSTOMER'S NAME 


CUSTOMER NUMBER 


0 0074 A 30 40 OOOOOi 

ENTER THE STREET ADDRESS 

MQRELITE BATTERY CO._ 


CUSTOMER NUMBER 
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When the last field has been completed, press the Enter key and the next 
record is automatically displayed. To review records that you have completed, 
press the Home key. If the cursor is not in position 1 of the record, it will first 
return there; press the Home key again and the previous record will be 
displayed. Press the Enter key to advance to the next blank record for entry. If 
you want to change data in any record, simply enter the changes and press the 
Enter key. 

Once you have completed this process, use the three sample address cards 
shown in Figure 5 as your source documents. Enter the information from these 
cards using the program you wrote, entered, and compiled. If you would like 
to see the contents of the diskette for the MASTHEAD data set, use the Print 
Utility. The Utilities Reference/Operation Manual provides information about 
using this utility. 

When you are done, exit with the EOJ key and try to answer the summary 
questions. 
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Figure 5. Sample Cards 








SUMMARY OF CHAPTERS 2 THROUGH 6 


You have created, described, compiled, and used a simple data-entry job. You 

should understand that the normal description required for a job is: 

1. Job specification statement to name the job and the transaction file (Z 
specification) 

2. Entry format statement to name the record to be used for the entry 
format (Z specification) 

3. Review format statement to name the record to be used for the review 
format (Z specification) 

4. File description statement to name and describe the display (CRT) file (A 
specification) 

5. Record description statement to describe the record named in the entry 
format statement (A specification) 

6. Field description statements to describe the characteristics of the fields in 
the record and to control the keyboard shift and the display organization 
for each field (A specification) 

7. Diskette file description statement to complete the description of the data 
set for the transaction file (A specification) 

The sequence of these statements (as shown in the previous list) is important 

when you enter and compile your program. 
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The following chapters describe advanced functions that are available for 
DE/RPG data-entry jobs. If Chapters 2 through 6 have given you sufficient 
information to complete your applications, you should be able to answer the 
following questions and try to code the data-entry program described later in 
this manual. If you can successfully complete these tasks, you are ready to 
start writing your own programs. 

If you need to learn additional data-entry functions before you can complete 
your application, read the remaining chapters in this manual. These chapters 
show you how to display formats but not write them to the diskette data sets, 
test positions of records to select formats for displaying data for review 
(update, verify, or rerun modes), use tables, perform automatic calculations, 
perform additional checks and edits against entered data, and reformat the 
diskette data set. 

Answer the following questions to test your understanding of DE/RPG in 
simple data-entry jobs: 

1. Answer T for true and F for false for each of the following statements. 
The minimum requirements for a data-entry program are: 

a. _1 job statement with TFILE specified 

b. _1 job statement without TFILE specified 

c. _1 entry format 

d. _At least 2 entry formats 

e. _At least one review format 

f. _1 CRT file 

g. _Multiple CRT files 

h. _At least one record 

i. _More than one record 

j. _A maximum of 5 fields 

k. _At least one prompt 

l. _At least one edit or check 

m. _1 diskette file 

n. _Multiple diskette files 



2. Which of the following statements is true?_ 

a. A file is the data that is written on the diskette. 

b. A file is related to an input/output device. 

c. A file is the contents of a display. 

3. The following figure duplicates the illustration of the process involved in a 
simple data-entry job. All circles except step 2 are filled in. Fill in step 2. 



4. Which of the following statements is true?_ 

a. An entry format must have the same name as the CRT file. 

b. A format determines the sequence of information on the display. 

c. Formats can be manually selected by the operator or automatically 
selected by the program. 

5. Write the prompt that will display: ENTER THE FOLLOWING 
INFORMATION. 
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6 Which of the following statements is true?_ 

a. Record markers illustrate the location of erroneous data. 

b. Record markers indicate the type of record. 

c. There can only be H and D (for header and detail) record markers in a 
program. 

7. The following program is partially completed. Use the instructions that 
have been provided to determine how to supply the information needed 
as shown by the darkened areas on the specifications. 


Instructions for the Test Program 

This program allows an operator to enter customer name and address records 
in a diskette data set. When the operator uses the program, the display looks 
like this: 



1_J 



1_J 
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The resulting data set looks like this: 


Address 


Diskette Data Set 
Iress C Name 


Address 


Using this information, try to fill in the darkened areas of the specifications. 


s=r=*= International Business Machines Corporate 


IBM 5280 DATA DESCRIPTION SPECIFICATIONS 


Dataset 

Keying 

Date 

Instruction 




Dataset/Record/ 
Field/Table Name 


9 20 21 22 23 24 25 26|27 28 29§30 31 32 33 3 


IIIDBI II I llllllll lllllllll 

iiidsi ii i immi min ill 

IIIBBIIIIKKSKSXIIKHIIIIIIIIIII 8 III 
IIIBBI II I llllllll III I I I 

IIIBBIKIIXIIIKRIIIIIIIIIIIIIIIIIIIIIII 
IlIBBIIIIKRIMillllllllllKIIIIIIIIIIII 

IIDBBICIIlSIlliailllllllillllllKXIKIII 

■■BBBIinil»M«ll iigiiiggl|l|SHiiiiH 

IIDQCIII immHHBHi 
UIDOBI II I llllllll mill III 

iiiqbi ii i iiiiiiii min iii 

IlIBBIIIIlIKlllllllllllllllllllllllll 
miBiiiiiiiisiiimimiiHiiiiiiNiii 
IIIICI II I llllllll lllllllll 

■■■■BiiiiMiiiwii mmnniimiiiiii 


mi 


in 


Checks=CHECK (code . 


miBiiiiiiiiiiaiSHQiiiaiiim^^H 

■■■BBiiiiMHiMsi^imiMiim iiim 

IIIDBI II I llllllll IIIVHI 


IIIIBIIIIllllHINIIIIIIIIIllllllllilll 


BC Hi Ad| Blank F 


RANGE I 
RANGET 


AUXDUP (name! 

AUXST (name) 

DSPATR t : attr i 
EDTCDE (code float) 
ERROR (code j message ! 

INSERT (tidl tldnl 


5 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8' 


illSiE 0 !@Eil!OIE@E 0 B§fi 9 IB^JQII 

iiiiiiiiiiiiHiiiiiiiiiiiiggj 
■h^hiiiiiiiiiiiiiii 


rnrnnmi 

ISHlSEfil 


m 


iiiiiiiiiiiiimmiiimiii 

mmmmmmmmmmmmm 

lllESUMSailllllllllllM 
IIISSIBSODEMIIIIIIIIIIIIM 

IIISlESBliDSSglSIQHBHDIIIII 

Bsmmmiimiiiiimmi 

iimimmi 

ii iiiiiiiiiiiiii 

i I iiiiiiiiiiiiiii 

1111111111111111111 

iiiimiiiiimiii| 

iiiiiiiiiiiiiiiii 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 2122 23 2425 26 27 28 2930 31 32 33 34 35 36 37 38 3940 41 4243 44 45 46 47 48 4950 51 52 53 54 55 56 57 58 5960 61626364 65 66 67 68 6970 71 72 73 74 75 76 77 78 7980 

‘Number of sheets per pad may vary slightly. 
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|nt«rn#tion«l Bullneu Machine* Corporftion 


Printed m U S. A 


IBM 5280 GENERAL UTILITY SPECIFICATIONS 


Job 

nr-— 

Kerymy 

Instruction 

nr - 

n 

_ 

— 

r~ 


r~ 


n 

Operator | Date 

Key 

_ 

d 

d 

_ 

_ 

d 


□ 


a 


Job/For mat/Subroutine 

cr 

18 19 


i 

Test Conditions 

Reserved 

38 39 40 41 42 43 44 

< 

o 

q 

E 

z 

4546 

Reserved 

4 7 48 49 50 51 52 53 54 

Options 

Sequence 

1 2 3 4 5 

E 

o 

6 

a 

> 

1 

2 

7 

N 

o 

< 

Oi 

o 

| 

8 9 

Name 

10 11 12 13 14 15 16 17 

< 

o 

2 

< 

Is 

Position 

to be Tested 
(*P0Snnnn) 

23 24 25 26 27 28 29 30 

T> 

cr 

31 32 

0 

! 

° 

33 34 

b 

5 

6 

35 36 37 

Job Line Entry Lines 

CfiLE 'd»t* CL*K (numb*' 

0ATE i-OMV .VMO- EOJ|fKJbde*|*PASS|‘| 

EOlTC i|cuor<i]i SLNCJ ii "»! 

ENTRATRUMI MRiri m«n»l 

JOBOPT lj • NOPMT || • NOOPF N | 

PRTPILE Idjtj «■' 

SHARE 

STATUS 1 rum,) 

jttr Bl C.S HI NO Ri ui 

55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 2122 23 2425 26 27 28 2930 31 32 33 34 35 36 3 7 38 39 40 4 1 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
'Number of sheets per pad may vary slightly. 


Check your answers with the answers given in Appendix A. If they do not 
match, try to understand why. Reread the preceding chapters if you need to 
review the concepts being tested. 
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Chapter 7. The Description of the Detailed Purchase Job 


The initial assignment you were given (in Chapters 2 through 6) was to design 
a data-entry job that allows an operator to enter information from a customer 
name and address card file. Your second assignment is to design a job that 
uses the data set created by the first job. Part of this task will involve defining 
the current job in such a way that information from the first job can be copied 
and included as part of the new data set. 

Many of the concepts that you learned in the first sample job are also used in 
this sample job. You will be learning some new automatic functions and you 
will be learning how to use tables. If you have not understood the information 
presented in the preceding chapters, reread the necessary portions of the 
manual. Before you begin this chapter, you should understand: 

• The process involved in defining a simple data-entry job 

• How to design displays for a data-entry job 

• How to write a simple program using the A and Z specifications 

• How to enter, compile, and use the program you wrote 

If you understand these concepts, continue reading about the advanced 
data-entry functions offered by DE/RPG. 


DEFINITION OF THE DETAILED PURCHASE JOB 

The environment for this sample job is the same as that used for the first job. 
Assume that you are part of the same data-entry department that created the 
first job. The manager of the sales department has requested that your 
department design a job for entering data from a sales order form that his 
salespeople use. The sales order form is shown in Figure 6. Read the 
instructions carefully. Notice that the customer information at the top of the 
sales order form is identical to the type of information you entered for the first 
job. 
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3340 Silver Bark Drive 
Oak Ridge, Montana 


ACKME PARTS COMPANY 

Parts Suppliers with a Name 
of Excellence 



Figure 6. Sales Order Form 


Customer Number: 
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Your supervisor has given you a sheet of instructions describing the job. 


ami pmmet mt-. 3\i b D ;T h ^ 0 c b rea,ed 

Master Coscm\ey~ 1 ^h < ^r •. Mast 0ata &t Used 


by this Job 


Record Type 4-. 

dvrh»^ -(tz>rv\ y v^W: Use. custevw 

-fr*A ~W. . 

"Z-. X}^r/V\u (&yAey dUafe. j 

Field Name CUSTI^Ufe'') (jJSfaxv\£jT V\UlY\(d£v^ S&ne On Wjzdjl/. 

Field Length (?>") &T\'S WV\fii$ . &a\i^ 

tt&v\ (6) - I^VN PDXXXt). CW ^ 

tT 8 MT UW& At. (Voss-cWfc- -W Mvi&^P-VakXe 

\Xz£^(zd) — - fv^’-^YVn. 

(4^)" QuavN'H'Uj. ) o c^zew\a\ ^s\4v>as^ 

Xu^ht um 4 X ' 2 ev^ 4 'iH. 

Tf?nae-(s') - U^ts 1 'Z- cWxwNa\ <pD$\VioA^> j v i^Vtr M\o6t ooi4W 

Editing Instructions 'ZCx'O "01 A N C\ie}(L- &0fa\\f\sY -\V\C- PR\C^T “V^0\£ • HyS6 \rv&Y^- 

C/^-dr\e^ bogweX' -ty\<L 'VfcW.^. 

Co9r {y}- UaI hP/tc^.. *\)^'\4s v *2* ^ecwv\a\ p^Ws \UUttfPlV 
^\c£=. 4^ QUa^jT" -Vo ^b>-^vv\. o^va^ -W(r w\ ^ItfTZlu. 
WffiX-l' (id)- "j) m p£>si-WoA \So 4" . 

3- ^ AutoV7\2^rcaVlt^ q<2wax0fe-3 

P#V (O “■ "pafe" csoMn& 

£USTMi(S)~ 6 ^aw mwbe*x ‘S&Ywe.&^lW 
^131 f(S> Azc\w\a\ p^\4icnN5> (<S£A“Wv\^ <2nlin£- 

'fcx &i\ ctabAls). 

PIWK3{±) Tm«rt in pos/fjtf7? /^o/ 2 ^ diskette vecord 


View of the Resulting Data Set 



2bX <2&cl\ CV&'tavYW' uilno VY^i<2. A 
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Read these instructions carefully. Notice that you are told to copy customer 
information from the data set created by the first sample job and then enter 
the purchase data from the sales order forms that have a matching customer 
number. Each order line on the sales order form equals one detail record. 
These records will be marked with a D in the last position of the diskette 
record to indicate that they are detail type records. 

When all detail records for a customer have been entered, the system 
automatically computes the total and puts this total in a separate record 
marked with a T to indicate that it is a trailer record. 

Because each record is to be 150 positions long, the record marker for each 
record type will be in position 150. By requiring that all record types have 
record markers in the same position, you can ensure that the correct format 
will be selected for the record. 

Suppose for instance, that the header record contained an H in position 150, 
the detail record contained a D in position 69, and that the trailer record 
contained a T in position 30. Now, suppose the program selected the format 
for displaying detail records whenever there was a D in position 69 of the 
diskette record. If the header record contained a D in that position, a header 
record would be displayed with a detail record format. By placing the marker 
for all record types in the same position of the diskette data set, you can 
prevent this type of error. 

The use of header, detail, and trailer record types is a common technique in 
data-entry applications. Figure 7 shows the kind of information contained in 
each record type. 


Trailer Record 

Total: 18965 110879 

Detail Record 

Item: 00BBB4 Price: 18950 110879 

Detail Record 

Item: 00AAA1 Price: 00015 110879 

Header Record 

Customer: Jane Rasker Date: 110879 
Street: 16 Bloosom Hill 

City: San Francisco - 

State: California 

Customer#: 98765 


Figure 7. Record Types 




DEFINING THE REQUIREMENTS FOR THE DETAILED PURCHASE JOB 


The job you are now preparing to define is the one that allows the operator to 
enter detailed purchase information from the sales order form. The fields in 
the two new records are: 


Display fields on 

The Sales Order Form 

Diskette fields 

In the Instructions 

Detail Record 


Date 

Date 

Customer number 

Customer number 

Salesman's Initials 

Salesman's Initials 

Item number 

Item number 

Description 

Description 

Quantity 

Quantity 

Price 

Price 


Cost 


D 

Trailer Record 

Date 

Customer number 

Total 

T 
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The display and diskette formats do not match. Therefore, the diskette format 
will be the guide for the field design because it contains additional fields that 
must be included on the displays that are not shown on the sales order form. 
The new functions used in this job are the use of tables and some job, format, 
file, and field functions not described in the first sample job. 

The new concepts that you will find in this sample job are: 

• Using multiple record types and multiple data sets 

• Automatically calculating totals 

• Automatically duplicating fields 

• Using tables 

• Suppressing the writing of a record 

• Reformatting a record for the diskette 


BASIC CONCEPTS FOR THE DETAILED PURCHASE JOB 

Two concepts that you need to understand before you begin describing the 
fields in this job are (1) the use of named fields and (2) the use of tables and 
indexes. 


Named Fields 

A named field is any field that has a name in columns 19 through 24 of the A 
specification. You can also specify a named field by using the AUXST 
keyword and naming the field in the parameter (for example, AUXST(DATE)), 
instead of columns 19 through 24. Remember that the supervisor instructed 
you to name each field in the first example; therefore, each data field in that 
program was a named field. Naming fields allows you to refer to them later in 
the same program. If a field is not named, the entry can only be used in the 
record in which it was entered. Therefore, it is a good technique to name any 
fields in your program you think you will need to use any place other than their 
initial entry. 

Basically, you can use named fields (1) to duplicate data from one field into 
another (2) to perform calculations, or (3) to insert the contents of a field into 
another. 



When you name a field, DE/RPG places the data associated with that field in 
storage. It can retrieve the field any time you use the name with a keyword or 
reserved word in columns 45 through 80 of the A specification. For example, if 
you name one field PRICE and another field QUANT, you can specify 
INSERT(PRICE*QUANT) in a third field (TOTAL) and the result of multiplying 
the contents of PRICE and QUANT is placed in the TOTAL field. 
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A reserved word is a name that is restricted for special uses such as using 
counters (*TOT) or specifying test positions (*POS). You will learn more about 
the reserved words *TOT and *POS in the second sample program in this 
manual. The DE/RPG Reference Manual contains descriptions for all reserved 
words. 
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Tables and Indexes 


Tables are lists of data that are used to determine the accuracy of entries. The 
types of checks that can be performed against tables are: 

• Checking for matching data 

• Checking for an acceptable range of data 

• Checking entries for matching combinations of data 

• Substituting the contents of the entered field with an entry from a table 

An example of a table is a list containing identification codes for items sold by 
a business. 


ITEMT 

Sample Table 

Item Description 

00 AAAI 

Ratchet assembly 

00AAA2 

1-inch screws 

00AAA3 

Roller bearings 

00AAA4 

3-hp motors 

00AAA5 

Spring clamps 

00AAA6 

Motor housing 


The sample table is named ITEMT. A table name can consist of any nonblank 
character string except one that begins with TAB. For example, if this table 
were named TABITEM, it would not be accepted by DE/RPG. (This is to avoid 
conflict with RPG rules.) 

The following sample field description statement illustrates the coding for a 
table function that checks the validity of data entered in the field against 
entries in a table. 



The table function is named LOOK. When the operator enters data into the 
ITEM field, DE/RPG uses the data to check entries in the table named ITEMT. 
If it finds a match for the data, the next field is processed. If it does not find a 
match, an error occurs. 
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Because this table function did not use an index, the program does not know 
the number of the table entry that matched the entry for the valid field. 
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indexes are named numeric fields that contain the number (position; of the 

entry in the table that matches the field being tested. The following modified 
sample illustrates the use of an index. 
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Notice that the field naming the index precedes the field that uses the index. If 
indexes are not defined in the program that uses them, they default to numeric 
fields that are 5 positions long. Things to consider in defining an index are (1) 
they must be named, (2) they must be numeric, and (3) their field length is 
determined by the number of entries in the table. 

Not all table functions require indexes. The LOOK and XCHK keywords (which 
are used in the second sample program) do use indexes. The LOOK keyword, 
as you have seen, compares a single field entry against entries in a table. The 
XCHK (cross-check) keyword compares the combination of two fields with 
entries in a table (the entries represent the valid combinations). To perform a 
cross-check, you must perform two LOOK operations and keep the values of 
the matching positions in the tables in two different indexes. Then, you use 
these indexes with an entry in the table that you are cross-checking to 
determine whether the combination of values is acceptable. The following 
shows an example of using the LOOK and XCHK keywords. Additional details 
about this operation are provided when you write the program. 

Indexes should have as many positions as is necessary to hold the longest 
position in the table. For example, the ITEMT table in the sample has 6 
entries; therefore, it needs an index with a length of 1 (the index holds position 
1, 2, 3, and so on up to 6) and a table with 12 entries needs an index with a 
length of 2 (this index holds 1, 2, and so on up to 12). 

To understand what is happening in this small program, you will need to look 
at the PRICET and INVENT tables. The ITEMT table has already been 
described earlier in this topic. 

INVENT 

| ^ ITEM 1 sold at price 1 

2 
2 
3 

3 

4 

4 

5 

5 

6 
6 


PRICET 

08995 

00013 

00596 

04379 

00127 

00835 
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The PR1CET table contains the cost of the Item For example 00596 means the 
cost is $ 5.96. The INVENT table contains valid combinations of items and 
prices. For example, the INVENT table specifies that the combination of selling 
item 1 (00AAA1) at price 1 (08995) is valid. 
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Suppose the ITEMT table consists of the entries shown in the sample table. 
When the operator enters 00AAA3 into the ITEM field, index A contains 3 (for 
position 3 of the ITEMT table which contains the matching entry). The 
operator then enters 00596 in the PRICE field (this matches position 3 of the 
PRICET table); index B then contains a 3. The cross-check uses the 3 in index 
A and the 3 in index B to see if the combination of 3 3 is valid for the INVENT 
table. There is a pair of entries for the combination 3 3 in the INVENT table, 
so the entries are accepted. 
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USING TABLES IN THE DETAILED PURCHASE JOB 


The instructions tell you to use tables for two purposes in this job: 

• To verify that information, such as the item and price, is valid 

• To verify that combinations of information (such as the combination of an 
item and price) are valid 

The detailed purchase job uses three tables which are in two table data sets: 



TABLE! TABLE2 


Assume that these tables are already available on a diskette. It is your job to 
simply use the existing tables to verify that information is correct. The next 
chapter goes through the process of writing the program for the detailed 
purchase job. Chapter 9 shows you how to create the table data sets used by 
the detailed purchase job. 
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SUMMARY OF CHAPTER 7 


You have completed the process of reviewing the requirements of the detailed 
purchase job and of learning about named fields, tables, and indexes which the 
program will use. Before you proceed to the next chapter, where you will 
design the displays and write the program, try to answer the following 
questions. 

1. Which of the following statements is true?_ 

a. The detailed purchase job contains three record types. 

b. The detailed purchase job has display formats that match the diskette 
formats. 

c. The detailed purchase job uses tables. 

d. The source document for the detailed purchase job is a sales order 
form. 

2. Which of the following statements is true?_ 

a. A named field can be used in more than one place in a program. 

b. A table is a special type of named field. 

c. A grocery list can be considered a table. 

Check your answers with the answers given in Appendix A. If they do not 
match, try to understand why. Reread the chapter if you do not understand the 
concepts being tested. 



Chapter 8. Designing the Displays and Writing the Program for the Detailed 
Purchase Job 


You are almost ready to begin marking the display work sheets. Before you 
do, you should be aware of two new techniques in this program that affect the 
display records. 

The first technique is the use of a scratch record. This is a special kind of 
record that is only displayed and never written in the diskette data set. It will 
be the first record displayed in the program. The scratch record will allow the 
operator to review the instructions for using the program and to set up the 
date fields for the detail records. 

The scratch record provides operating instructions that guide the operator in 
using the program. It also provides an input field that the operator can use in 
other records. The input field is for the date on the sales order form. If there 
are many orders on a form, the operator can enter the date once in the scratch 
record and then automatically duplicate it in the detail records. Later, you will 
learn how to describe the date fields in the scratch record and in the detail 
record so they can be changed or duplicated as needed. 

The second technique consists of reformatting diskette records by describing 
them after the file description statement for the diskette. In the first sample 
program, you used the CHECK(BY) operation to accomplish the same thing 
that this reformatting will accomplish—the placement of the record marker. 
Reformatting records, as used in this sample, affects the names you can give 
the display records. Each record name in a program must be unique. The 
names for the diskette records are specified in the instructions: DETAIL and 
TRAILER. You must invent new names to use for the display records. The 
sample arbitrarily uses DET for the detail display record and TRAIL for the 
trailer display record. 


DESIGNING THE DISPLAYS 

As you did in the first sample job, begin this job definition by designing the 
displays that will be used. Be sure to mark the display work sheets with the 
characteristics of the fields. When you have completed the design, read the 
following text to see whether your design and the sample design match. If 
your design and the sample do not match generally, try to determine where 
they differ and why. You may have added checks and edits that the sample 
does not use. This is acceptable as long as you describe on the A specification 
all checks and edits that the sample uses. If you have difficulty with this step, 
reread Chapter 3. 

The notes on the display work sheets reflect the instructions provided by the 
supervisor. The additional functions that are included in the sample depend on 
your experience in data-entry tasks. 
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Look at the sample work sheet that follows. 


Display Screen Layout Sheet 
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Literals are used on the sample work sheet to provide instructions for the 
operation of the program. The advantage of literals over prompts is that the 
literals allow you to use the entire display. The operator can carefully read the 
instructions until he uses the Record Advance key. Pay close attention to the 
length allowed by the 80 column displays. Do not divide words; they might be 
difficult to read and understand. One way to avoid dividing words is to keep 
each literal field to a maximum of 80 characters long. 

The sample work sheet shows that a single-position field has been added to 
the scratch record. This field has a prompt that instructs the operator to use 
the Field Exit key to leave the display. If the operator were using the automatic 
record advance function and did not include this field, the display would flash 
past the operator without halting. The operator would not see the instructions 
and would not know what to do. With this field, the operator controls the 
display; when the operator uses the Field Exit key as prompted, the display 
disappears and another display replaces it. You will learn how to specify this 
field when you write the program. 
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The scratch record has been described. The scratch record contains only a 
date field, prompts to guide the operator, and a single-position field to allow 
the operator to end the display. When you use the A and Z specifications to 
write the program, you will learn how you can display this scratch record 
without writing it in the diskette data set. 

Now you are ready to look at the display work sheets for the detail display 
(DET) record. 

The first field is the date field. It is duplicated from the date field in the 
scratch record. According to the instructions for this job, this field is to be 
changed if the date on a sales order form changes. 
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The next field is for the salesman’s initials. It does not contain any functions 
that have not previously been used. 


Display Screen Layout Sheet 


COLUMN 





Now, look at the item field. The instructions limit the entry in this field to a 
pattern: digit, digit, alphabetic, alphabetic, alphabetic, digit. This patterning is 
sometimes called a picture check. If the entry matches the pattern, the 
operator is allowed to continue. If it does not match, an error occurs. The item 
field also includes a prompt and uses a table function. 


Display Screen Layout Sheet 
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The table function that is used looks in the table that is named (ITEMT) to see 
whether the item number that was entered exists. A cross-check table 
function involving this field and the price field is also specified. 
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The description field is next; it provides space for descriptive information about 
the item. There is no restriction on this field. You should, however, include a 
prompt to guide the operator. 
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The quantity field is next. It specifies that the entry is to be right-adjusted and 
the remaining unused field positions filled with zeros. Another instruction 
requires that this field should contain digits only and should be specified as 
having zero decimal positions. A field without an entry in the decimal position 
columns of the A specification cannot be used in calculations. You will want to 
use this field to determine the cost of the items, so it must have a decimal 
position entry (even if the entry is a 0) in order to be used in a calculation. 
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The price field is next. This field is right-adjusted with zero fill and allows 
digit-only entries. Two decimal positions are specified. In addition, the entry in 
the price field is specified as being checked against the PRICET table to verify 
that the business sells an item at the price entered. This field is also specified 
as being used in a cross-check table function along with the item field. The 
INVENT table is used to perform the cross-check. 
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The cost field is the actual entry for the price of the items. DE/RPG 
automatically supplies the contents of the field by multiplying the named fields 
PRICE and QUANT. Directions for maintaining an online total in the # T0T1 
counter are also specified. *TOT1 is the counter you were told to use in the 
instructions from the supervisor. Notice that the field is marked to be 
highlighted. Automatically supplied fields are provided so rapidly that it is 
helpful for the operator to have some means of identifying when they are 
complete. Highlighting should provide this means. 
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The next field is the customer number field. Mark the field to prompt the 
operator for the customer number. 
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You have completed the detail display record description on the work sheets. 
Before you code this description on the A specification, complete the field 
descriptions for the trailer (TRAIL) display record. 
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Most fields in the trailer display record are automatically supplied by DE/RPG; 
that is, they are not entered by the operator. The first field is the date field. It 
should not be automatically duplicated from a previous scratch or detail record 
because this field contains the current date, which probably does not match 
the date on the orders. This is the only field in the trailer record that will 
require entry. 



The second field is for the customer number; it can be automatically duplicated 
from the customer number field in the detail record. 


The third field is obtained by inserting the value of *TOT1, which has been 
accumulated for all the detail records. When you understand how the detail 
and trailer records are used, you will understand how *TOT1 can be used to 
keep an online total. 

The last field is the marker for the trailer record. Use the insert function to 
place a T in each trailer record just as the H was placed in the header record 
earlier. The DE/RPG Reference Manual describes the insert function in detail. 

You have completed the display field descriptions for the scratch, detail, and 
trailer records which, along with the header record from the first job, were the 
records specified to be included in the data set for this sample job. 
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HOW THE OPERATOR WILL USE THE MASTHEAD DATA SET AND THE 
DETAILED PURCHASE JOB 


It is difficult to write the detailed purchase program without understanding how 
it will be used. Remember that the first job created a master data set 
containing general identification information about each customer. The second 
job, the one for which you have designed these displays, will copy information 
from this master data set as needed. Copying will be accomplished by use of 
the keyword CFILE in the job description statement of the Z specification and 
by the use of the copy keys. 

In use, the program will work in the following way. The operator will see these 
words: USE THE SEARCH KEYS TO FIND THE CORRECT HEADER RECORD 
IN THE MASTHEAD DATA SET. SEARCH FOR A MATCH TO THE 
CUSTOMER NUMBER ON THE ORDER FORM. NEXT USE THE COPY KEYS 
TO COPY THE DATA FROM THE HEADER RECORD INTO THIS DATA SET. 

The operator will search the MASTHEAD data set for a match to the customer 
number; then the operator will use the keyboard to perform the copy function. 
The header record containing the customer number that matches the sales 
order form will be written on the diskette. The data in the header record will 
be displayed in format 0. Format 0 is the default format for DE/RPG; each 
character in format 0 is considered a field. 

Next, DE/RPG will display the format for entering the detailed information. 

The operator will continue using the detailed record format until all purchase 
information for the customer has been entered. 

When the operator selects the next format from the keyboard, the format for 
the trailer record will be displayed and the automatic total functions will be 
performed and the result will be written on diskette. The format containing the 
prompt that tells the operator to use the copy function will automatically be 
displayed again. The operator will again search the MASTHEAD data set for 
the next customer number that matches the next set of sales order forms and 
then copy the matching record into the BILLING data set. 

This sequence of a header record, one or more detail records, and a trailer 
record will continue until the operator enters all the information from the sales 
order forms and uses the EOJ function on the keyboard to end this job. 



DESCRIBING THE DISPLAY FILE, RECORDS, AND FIELDS ON THE 
A SPECIFICATION 


In the first job, when you were learning how to write a program, you started 
the sample program by defining the fields first. 

This time, you will start at the normal beginning of the program, with the file 
description for the display (CRT) on the A specification. 

As in the first sample, the second sample requires a file description for the 
display. 
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Following the file description, you must define the first record. The first record 
you defined on the work sheet is the scratch record. This record describes a 
special display that allows you to prompt the operator for a date and provide 
information describing the use of the job. This record was not specified in the 
instructions for the job; therefore, it will not be included in the diskette data 
set. Actually, the use of the scratch record is a programming technique that 
you can use in a variety of applications. It allows you to set up fields that you 
can duplicate or insert in other records and provides extra prompting which 
precedes another record. 
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Describing the Scratch Record Using the A Specification 

You define this record as you did the records for the first job. The format 
description on the Z specification will determine whether or not it is written on 
the diskette. The description on the A specification is the same as all other 
records. This record has three different kinds of fields: (1) a date field, (2) 
fields for prompting (literals), and (3) a field for operator control in exiting the 
display. 
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The prompt for the date field guides the operator in identifying when to enter 
information in this field. Notice that the date field uses the keyword and 
parameter AUXST(DATE). Whenever the Auto Dup keyboard function is active 
and the operator enters data in the field, the entry is stored in the name DATE. 
Later, if another field uses the DATE field (for example, when AUXDUP(DATE) 
is used in the DET record), the value of the original entry is placed in the field. 
Using the AUXST keyword allows the operator to change the value of DATE 
easily but only when necessary. Whenever the Auto Dup function is inactive, 
the operator can change the value of DATE. 
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The next fields in the scratch record provide the operator prompting. Notice on 
the A specification that the messages have been designed to fit into 80 
columns. 
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‘Number of sheets per pad may vary slightly. 


A single-position field follows the instructions. The reason for including this 
field is that the prompts will be displayed quickly and without operator control. 
The operator needs to see the display and read its contents to perform the 
actions necessary to copy the header record from the MASTHEAD data set. 

To do this, you must halt the display. The single-position field with the 
CHECK(FE) keyword and parameter allows you to do this. The prompt explains 
that the operator must use a field exit key to leave the display. This allows the 
operator to determine when to exit from the display. When there are no 
entries in the location columns of the A specification, that field is placed 
immediately after the preceding field. Therefore, this single-spaced field will 
be immediately after the period following the word SET in the preceding literal. 

The definition for the scratch record is complete. You are ready to define the 
next record. 
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Describing the DET (Detai! Display) Record Using the A Specification 

The record description line is the same as for the scratch record except the 
name is now DET. The sample shows this record description beginning on a 
new A specification. This is not necessary; it is used in the samples to help 
you see the record contents clearly. If you are confused because the name of 
the record is not DETAIL, remember that a reformatted diskette record cannot 
have the same name as the display record, so you should reserve the name 
DETAIL for the record that is written on the diskette. 
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The first field is for the date. Fields in different records of the same program 
should have unique names to avoid confusion; because a field named DATE 
already exists in the scratch record, name this field DAT. Look at the 
supervisor's instructions and the display work sheet to determine the length 
and position of the field. The prompt is written in the same way as the 
prompts for the first sample program were written. The only new concept is 
the use of the AUXDUP keyword to duplicate the contents of the Date field 
from the scratch record. Whenever AUXDUP(DATE) is specified, the current 
contents of DATE are automatically inserted into the current field (DAT) if the 
Dup key is pressed. 
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The next field is the salesman's initials field. There are no new concepts. 
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Fields that are named A and B follow the salesman's initials field. Fields A and 
B are the indexes you were instructed to use for the table functions. Notice 
that the length of each field is 1. Because only six entries are in the ITEMT 
and PRICET tables, a single-position index is sufficient. Also, notice that the 
usage column contains a W {work space). The W prevents the field from being 
displayed, altered, or written on the diskette. The zero in the decimal position 
column describes the fields as numeric. Whenever indexes are used, they must 
exist as numeric fields. 
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The item number field is next. This field contains the picture check pattern for 
entry. The picture check has two parts: (1) a C must be in the data type 
column and (2) the SHIFT keyword and the parameter that forms the pattern 
for the picture check must be used. For this field, the parameter DDXXXD 
means that the first two entries must be digits, the next three must be 
alphabetic characters, and the last must be a digit. 

The CHECK (DR) keyword and parameter are used for this field also. To exit 
the field, the operator must use one of the field exit keys. 
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Now, look at the next keyword and its parameters. This is the first table 
function that you will use. The LOOK keyword describes the function. The 
LOOK keyword looks in the table named as its parameter to see whether the 
entry in the current field matches one of the entries in the table. Notice that an 
A follows the table name. This A is the index used for the table function. You 
only need to use indexes with the tables because you want to cross-check the 
table with another table. You know that this entry is to be cross-checked with 
the price field, so use an index. 
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The next two fields are fairly simple. The DESC fieid aiiows the operator to 
enter descriptive information about the item. The QUANT field requests 
information about the number of items that have been sold. The only 
unfamiliar entry for the QUANT field is the CFIECK (RZ) keyword and 
parameter. 
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The CHECK(RZ) function places the operator's entry in the rightmost positions 
of the field and fills the unused leftmost positions with zeros. Remember that 
the DR parameter was used in the first job for the customer name field. It 
requires that data be entered in the field. The entry in the decimal usage 
column allows the field to be used later in calculations. 
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‘Number of sheets per pad may vary slightly. 


The PRICE field is similar to the QUANT field. The 2 in the decimal usage 
column means that DE/RPG should consider the number that is entered to 
have two decimal positions. For example, if 245 were entered, DE/RPG should 
consider it to be 2.45 rather than 245.00. 

This field also contains an index in the LOOK keyword parameter as did the 
ITEM field. These indexes will be used in this field to cross-check the validity 
of the item at a specified price using the INVENT table. Each index must be 
unique. For example, two A indexes cannot be specified in a program. If two 
A indexes were specified, the second value of A would replace the value of the 
first one, and the first value would be lost. 
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Notice how the indexes are used with the XCHK keyword and parameters. The 
first parameter is the name of the table (INVENT) to be checked and the 
second and third parameters are the indexes (A and B) provided earlier by the 
LOOK functions of the ITEM and PRICE fields. 
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The literal 'TOTAL:' and the COST field are specified next. You should 
understand literals and recognize that there must be an 0 (output) in the usage 
column. Now look at the COST field. Two new functions are shown here: (1) 
a calculation using named fields and the INSERT keyword and (2) a reserved 
word used for a counter. 

To be able to use the named fields PRICE and QUANT in calculations be sure 
that the fields are named when they are described. If they are not named, 
they cannot be used. Also, look at the length of the COST field. You can 
determine this length by multiplying the largest numbers that can be provided 
for the price and quantity fields. Because you have a PRICE field that is 5 
positions long and a QUANT field that is 4 positions long, the largest number 
you can have is 9999 x 999.99 which equals 9998900.01; therefore, a COST 
field with a length of 9 is sufficient. The decimal position is not counted. 
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Notice that the multiplication of the contents of the fields is designated by an 
*. Now, look at the TADD keyword and the *TOT1 parameter in this example. 
TADD causes this field to be added to the contents of the counter that is 
specified in the parameter. As directed by the supervisor, the counter you 
specified is counter 1 (*TOT1). 

Using TADD and *TOT1 is a way to obtain an intermediate total. To 
understand this, consider how the job is used. Each purchase line of the sales 
order form equals one detail record. If you found the total of that line you 
would only have the total for a single purchase, not the total for the entire 
order. You need to add totals from all detail records for the same customer. 
The way you accomplish this is through the use of the counter. The counter 
will continue to add totals from the detail records until it is reset. All counters 
(*TOT) are 15 positions. 

The DSPATR(HI) keyword and parameter highlight the contents of the field. 
Display attributes such as highlight require one display position before and 
after the field. The position column entries must reflect this requirement by 
leaving at least one blank before a field that uses the DSPATR keyword. The 
*POS location specifies the data location and not the attribute location. There 
is extra space between the literal TOTAL and the highlighted COST field to 
accommodate the display attribute position that is required. 
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The customer number field is next. 
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The next field is the record marker; D for detail record. The insert ( D') places 
the record mark in the display record. 

If you have counted the field lengths, you know that the D mark will not 
automatically be in position 150 of the diskette record. In the first program, 
you positioned the record marker by using the CHECK(BY) function. In this 
program, you will reformat the record to position the marker. The description 
of the reformatted record occurs later in this chapter. Before you do that, 
however, you must complete the trailer display (TRAIL) record description. 

You have completed the description of the detail display (DET) record. You are 
ready to describe the trailer display (TRAIL) record on the A specification. 
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Describing the TRAIL Record Using the A Specification 


Most of the fields in the TRAIL record are automatic. The operator will have to 
enter only one field in the record. All functions used in this record description 
should by now be familiar to you. Briefly look at the contents as a review. 

The DAY field allows the operator to enter the current date. The CUST field 
duplicates the contents of the named customer number field from the DET 
record. The TOT field places the total accumulated in the *TOT1 counter in the 
field and then resets the counter so that there is no carry-over balance from 
one customer to another. 

The record marker T is the last field in this record. This marker will be 
positioned correctly by reformatting the record just as you will do for the DET 
record marker later in this chapter. 
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You have completed the definitions for the entry records used in the job. 
Before you continue, check your understanding of what you have learned: 

• How many display records have been defined for this job? 

Answer: Three-SCRATCH, DET, and TRAIL 

• Why have you defined a scratch record when the instructions do not 
describe one? 

Answer: To provide a date entry that can be used by the DET records and 
to instruct the operator in the use of the program. 

• What does the INVENT table cross-check? 

Answer: That the entered item code matches the entered price 

• What automatic calculation are you performing? 

Answer: Multiplying the QUANT and PRICE fields and maintaining an 
intermediate total for each customer. 

If you understand the answers to these questions, continue reading. If you do 
not understand, reread the preceding sections on this topic. 


DESCRIBING THE DATA SET FOR THIS PROGRAM 

The description of the data set for this program will contain two records: the 
detail diskette (DETAIL) record and the trailer diskette (TRAILER) record. The 
description of the data set for the first program did not contain any record 
descriptions because no records in the first program were reformatted. The 
header record is not included in this description because the header record 
contents are being included in the data set by the manual copy function and, 
therefore, the record description does not have to be included in this diskette 
data set description. A file description line for the data set containing the 
header record will have to be included somewhere in the program, but you will 
see this later in this text. 

When you reformat records in a data set, you must include a unique record 
name for each reformatted record (which, in this case is DETAIL and 
TRAILER). You must also list each named field in the record and provide a 
location for the field. All data fields in the reformatted record must be named. 
The location is the position you want the field to occupy in the diskette data 
set. You can rearrange fields in the data set, but you must use only fields from 
a single record for the same reformatted record and you must use all I (input) 
fields from the original record. 

As you look at the sample that follows, notice that the first line in the data set 
description is a diskette file description statement with a name that matches 
the name in the TFILE parameter (BILLING). Next is a unique record name 
(DETAIL), followed by a list of named fields. The field names match those in 
the DET detail display record. Each field has an entry in the location columns 
on the A specifications. 



The location entry is determined in the following way: 


• The location of the first field is obviously 1 because it is first and, therefore, 
is in the first position of the record in the data set. 

• The location of the second field is the position of the first field (1) plus the 
length of the first field (6) which equals 7. 

• The locations of the remainder of the fields are calculated in this way until 
you come to the record marker. If you position the record marker field as 
you did the previous fields, it would appear in position 69 of the diskette 
data set. However, you want the marker in position 150 of the data set so 
that it matches the position of the header record marker. To do this, specify 
the position as 150. 

When you reformat a record, you can specify any location you want for any 
field on the diskette data set. You can rearrange fields within the record, space 
them out or, as in this example, place one field in a predetermined position of 
the record. 

Without looking at the reformatted TRAILER record, try to describe it on your 
A specification. The T mark should be in position 150 of the diskette data set. 
Remember, it must include all fields with I usage entries from the TRAIL 
record. 
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You must provide three remaining data set descriptions: (1) a description for 
the data set containing the header record being copied into this data set and 
(2) descriptions for the table data sets used by the program. 
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DESCRIBING THE DATA SETS USED BY THE PROGRAM 


You must include a file description line for the MASTHEAD data set from 
which you are copying header records. 

The only information needed is the data set name and the DEVICE (DISK 
X'4000') keyword and parameter. 
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You must include a file description line for each table data set this program 
uses. Two table data sets are used: 

• The TABLE1 data set, which contains the ITEMT and PRICET tables 

• The TABLE2 data set, which contains the INVENT table 
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Notice that the table data set descriptions are followed by lines with a letter T 
in column 17. This T specifies that the name in columns 19 through 24 
identifies a table. For example, the data set named TABLE1 has two tables 
(iTEMT and PRiCET). The TABLE2 data set has one table (INVENT). In the 
following chapter, you will learn how to create the tables. In this example, you 
are now learning only how to reference existing tables in a program that uses 
them. Each table description line (T in column 17) has a length entry. This 
entry tells DE/RPG the length of each entry, not the length of the table. The 
NUMENT keyword and numeric parameter tell DE/RPG the length of each 
table. When two tables are included in one data set, they must have the same 
number of entries (table length) but the length of the entries can be different. 
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You have now completed the diskette data set descriptions. You are ready to 
proceed to the job and format descriptions on the Z specification. 








































USING THE Z SPECIFICATION TO DESCRIBE THE JOB AND FORMATS 


On the first line of the Z specification write the job description as defined by 
the instructions. It should look like this: 
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'Number of sheets per pad may vary slightly. 


You should recognize the TFILE keyword and parameter. The CFILE keyword 
has not been explained. CFILE(MASTHEAD) means that you will be using the 
data set called MASTHEAD to copy data. This data set must be specified in a 
file description statement on the A specification (this has already been done). 
You must use this keyword and parameter in order for the copy keys to be 
valid. This completes the job description. Proceed to the format descriptions. 
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The entry format for the scratch record occurs first. Remember that the 
scratch display record contains the prompts telling the operator to use the copy 
function. The operator will need this information to know how to proceed. The 
name in columns 10 through 17 must match a record name on the A 
specification. The ID in columns 8 and 9 is arbitrary. If no ID has been 
specified by the supervisor, you may select any valid ID. 
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‘Number of sheets 


8 9 10 11 12 13 14 15 1 6 17 18 19 20 21 22 23 2425 26 27 28 29 30 31 32 33 34 35 36 3 7 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 6970 71 72 7 3 74 75 76 77 7 8 79 80 

per pad may vary slightly. 


The 1 in column 20 tells DE/RPG to use the format once. The E indicates that 
the format is for the enter mode and the XI in columns 45 and 46 specify the 
ID for the next format to be used for automatic format selection. The 
WRITE(*NO) keyword and parameter tell DE/RPG not to include the record in 
the diskette data set. 

The first display record the operator will see is the scratch record. The 
operator will look at it and then use a field exit key to leave the display and 
proceed with the copy. The DET record will be displayed immediately following 
the scratch record. The scratch record will not be written in the diskette data 
set, but the header record will. Once the header record has been copied into 
the data set, the operator will see a display showing the format for the DET 
detail display record. 
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Because N appears in column 20, the DET format will be used until the 
operator selects the next format. The next format following the DET format is 
the TRAIL format (X2 in columns 45 and 46 of the DET format description). 
The WRITE(DETAIL) keyword and parameter for the DET format tells DE/RPG 
to use the DET format for the display but to write the data in the format 
specified by the DETAIL record description. (The DETAIL record was included 
in the diskette data set description.) This procedure shows you how to 
reformat records. 
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“Number of sheets per pad may vary slightly. 
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The TRAIL format (X2 in columns 8 and 9) is selected upon completion of the 
DET format. This record is also reformatted (WRITE(TRAILER)). Upon 
completion of the TRAIL format, which is used oniy once (1 in column 20), the 
scratch record is redisplayed. 


IBM International Buimesa Machinal Corporation IBM 5280 GENERAL UTILITY SPECIFICATIONS 


■loo DETAILED PURCHASE JOB 

Key ~g 
Instruction 

Gracn c 


n 


_ ] 

n 



Operator j Date 

KfV 


□ 



M 




I Desc'.p! or CREATES bATA 1 Page ol 

SET FOR MONTHLY BILLS i O 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 232425 26 27 28 2930 31 32 33 34 35 36 37 38 3940 41 4243 44 45 46 4748 49 50 51 52 53 54 55 56 57 58 5960 61 62 6364 65 66 67 68 6970 71 72 7 3 747576 77 7879 80 
‘Number of sheets per pad may vary slightly. 


This process is continued for the enter mode (E in column 21) until the 
operator ends the job. 
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Once the enter mode description is complete, you must provide a description 
for the review modes. Place an R in column 21 of the Z specification. Write 
the reserved word # POS and the number 150, starting in column 24. Next, 
write 'H' in columns 35 through 37 and 0 in column 46; the apostrophes ('H') 
are required. This description tells DE/RPG to use format 0 (a default format 
that strings fields together across the display) for the display of a header 
record (an H in position 150) during the verification, update, and rerun modes. 
Next, write review descriptions for the detail and trailer records. The sample 
illustrates the coding. 


Internationa* Bui men Machines Corporation IBM 5280 GENERAL UTILITY SPECIFICATIONS 


Printed in U. S. A. 


DETAILED PURCHASE JOB 

Keying 

Instruction 

Graphic 








Operator | Da,e 

Key 









Descr iption CREATES DATA 

Page 

of 


1 

8 



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2425 26 27 28 2930 31 32 33 34 35 36 3 7 38 3940 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 66 66 67 68 6970 71 72 73 74 7576 77 78 79 80 


’Number of sheets per pad may vary slightly. 


Note: The scratch record can never be reviewed because it is not written to 
be displayed. 

Whenever DE/RPG finds a D in position 150 of a diskette record, it should use 
format XI (Det record) to display the data for the review mode. When it finds 
a T in position 150, it should use format X2 (TRAIL record) to display the data 
for the review mode. This allows you to use one format for the display and 
another for the diskette data set. 
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SUMMARY OF CHAPTER 8 


You have completed the entire assignment you were initially given from the 
sales department. The only concept you need to learn is how to create table 
data sets. To teach you this, Chapter 9 creates data sets for the table used 
during the detail purchase job. 

Before you proceed, try to answer the following questions: 

1. Three tables are used in the program. What are their names? 

a. _ 

b. _ 

c. _ 

2. Name three new functions you have learned in this chapter. 

a. _ 

b. _ 

c. _ 

3. Answer T for true and F for false: 

a. Named fields can only be used with AUXST and AUXDUP._ 

b. Fields do not have to be named._ 

c. Indexes must be 3 positions long._ 

d. All tables must have an index._ 

4. Mark the correct set of displays that will be seen when this program is 
used. 

a. Trailer, Detail, Header, Detail_ 

b. Detail (as needed). Trailer, Header_ 

c. Header, Detail (as needed). Trailer_ 

d. Scratch, Header, Detail (as needed), Trailer_ 

5. Tell why you place the record identifier in the same position of each 
record. 
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Chapter 9. Creating Data Tables at Compile Time 


In this chapter, you create three tables. The tables-ITEMT, PRICET, and 
INVENT-were used in the second sample job. There are two ways to create 
tables: (1) within the program that uses them and (2) within a separate data 
set. The first section in this chapter will show you how to create the ITEMT 
and PRICET tables within the second sample program. The second section will 
show you how to create the INVENT table in a new and separate diskette data 
set. 


CREATING THE ITEMT AND PRICET TABLES WITHIN THE MASTER 
PROGRAM 

When you defined the files and record descriptions for the tables that were 
used in the MASTER program, this is the way the A specification looked. 
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Now you are going to change the table descriptions for the ITEMT and PRICET 
tables on the A specification so you can define the tables in the same program 
that uses them. These are called compile-time tables. To do this, you must 
change the table definitions somewhat and then you must add the table entries 
to the end of the program. The changes are shown in color in the following 
sample. 


IBM lnt*rn#t'0r\«l Butmeu Machine* Corportt'0" IBM 5280 DATA DESCRIPTION SPECIFICATIONS 


job No billing 

Dataset 

Key ng 
Instruction 

Graphic 


□ 

n 

□ 

□ 



Operator 

Date 

Key 


□ 

□ 

Lj 

□ 




Source Document DETAILED 

Page of 

PURCHASE JOS 

0 b 



'Number of sheets per pad may vary slightly. 


The DEVICE keyword and parameter on the file description statement for the 
ITEMT and PRICET tables has been erased. Everything else within the body of 
the program remains as it had been for the original program. Now, look at the 
lines following the last description of the original program (the table description 
line for the INVENT table). Two asterisks mark the beginning of the tabie 
description. The name that follows the asterisks tells DE/RPG that this is a 
definition for a compile-time table. The table name follows and it matches a 
file description statement name for the tables that are being described within 
this program. The entries follow the asterisks and name. On each line, an 
entry for the ITEMT table is given and followed by an entry for the PRICET 
table. The value in the length column for the table description line in the 
program tells the program which entries belong to which table. The NUMENT 
keyword and parameter determine the length of the tables. Tables within the 
same data set must be the same length (although the length of the entries 
within the tables can differ). The DE/RPG Reference Manual contains detailed 
information about compile-time tables such as ITEMT and PRICET. 































CREATING A SEPARATE DISKETTE DATA SET FOR THE INVENT TABLE 


The original table description on the A specification for the BILLING program 
does not change when the INVENT table exists in a separate data set. 

The program that creates the INVENT table is similar to the MASTER program. 


ISM 
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pad may vary slightly. 


As you can see by looking at the sample, the Z specification must contain a 
job description statement and a format description statement for the record 
within the CRT file. Each table entry forms a record within the resulting 
diskette data set. The length of the record is specified in the file description 
statement for the diskette. The length column entry specifies the length of 
each table entry. 

The advantages of creating tables in separate diskette data sets are that they 
can be used by more than one program, they can be created separately from 
the using program, and they can include prompts and literals that guide the 
operator in entering data for the tables. 
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SUMMARY OF CHAPTER 9 


You have completed the chapter that tells you two ways to create tables. This 
concludes the teaching portion of the manual. Before you leave the chapter, 
try to answer the following questions. 

1. How many ways are available to create tables using DE/RPG?_ 

a. 3 

b. 1 

c. 2 

2. Look at the following illustration. Write down the step number that 

reflects when compile-time tables are created._ 



Creating Data Tables at Compile Time 
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3. Which of the following statements is true. _ 

When you create a compile-time table, you: 

a. Delete the NUMENT keyword and parameter. 

b. Replace the T in column 17 with an R. 

c. Delete the DEVICE keyword and parameter. 

4. Which of the following statements is true: 

a. The INVENT table was created in a separate data set. 

b. The ITEMT and PRICET tables were created in separate data sets. 

c. The ITEMT, PRICET, and INVENT could be created in separate data 
sets or at compile time. 

Compare your answers to those in Appendix A. If you feel you have sufficient 
understanding about creating tables, proceed to Chapter 10 and try to answer 
the final review questions for the manual. Chapter 10 contains questions about 
material in all the preceding chapters of the manual. Appendix A contains the 
answers. The reference after the question points to the chapter that contains 
the information. 



Chapter 10. Self-Test Questions 


Before you leave this manual, try to answer the questions in this chapter. The 
answers to the questions are in Appendix A. The references in italics after 
each question indicate the chapter in the text where the topic can be found. 

1. Answer true or false to the following questions: 

a. Data entry is volume entry of data from a source document into a 

computing system._ Chapter 2 

b. A format is the smallest piece of data with which DE/RPG can work. 
_ Chapter 2 

c. Edits and checks are special kinds of messages._ Chapter 2 

d. A file is related to an input/output device._ Chapter 2 

2. The size of the display you have been using in the samples is_ 

characters. Chapter 3 

3. Row 1 of every display is reserved for the_. 

Chapter 3 

4. _messages disappear when the associated field 

is exited but_remain on the display until the record is 

advanced. Chapter 2 and 3 

5. All fields in the first program will be_to highlight 

their location to the operator. Chapter 3 

6. Answer the following statements with T (true) or F (false). 

a. The device description statement for the diskette must always have an 

entry in the Length column of the A specification. _ Chapter 4 

b. Field names must be no more than 8 characters long._ 

Chapter 4 

c. Job description statements are not necessary for all DE/RPG 

programs._ Chapters 2 and 4 

d. If there is only one record in the program, do not include an entry 

format description on the Z specification._ Chapters 2 and 4. 

7. The name of the data set for the third sample program is 
_. Chapters 7 and 8. 
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8. The_record is not written in the diskette data 

set for the second sample program. Chapter 8. 

9. The_table determines if the business sells the 

item with the code that the operator entered. Chapter 8. 

10. The_keyword and parameter provide data that 

can be duplicated or changed as needed. Chapter 8. 

11. The CHECK(DR) keyword and parameter means 
_. Chapter 8. 

12. The indexes used in the second sample program are named_ 

and_. Chapter 8. 

13. Tables can be created either at_or in separate 

_. Chapter 9. 


14. Because the ITEMT and PRICET tables are in the same data set, they 

must have the same number of_. Chapter 9. 

15. Try to complete the following program. The darkened areas on the 
specifications indicate information you should supply. Instructions are 
provided to aid you in this assignment. 


Instructions 

This program creates four records named ONE, TWO, THREE, and FOUR. The 
records are 9 positions long. 



This is the appearance of the displays: 



TWO 



THREE 
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The resulting diskette data set looks like this: 
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Pos 

42 43 44 

-• 9 v «• A.- l- *■ »/ 0SPATH :- 4 tt- SE0i'ie«l 

'<*■• a.- ... > :>» V * C.--,a ■■ iDtCOC >ro+ <>«r. SETOF i.rwfi 

i! ■(• D DU • C G C'*'* G*" ERROR < ')<V j ■’-'►•ttatjp ! SETQN |in<J) 

*• * t » ' . ■i*'T .4 E XSR SHIFT l*ih'Ft' 

. -V- av . , INSERT nidi u> -idr; SUB (name> 

LOOK liable o<*« SUBST I|«0l»l table? I.nde*! 1 

TADO i • TO Tn | 

: »«t EOGEGT.it LT.NE TSuBCTOTm 

a 1 t< BL CA CS HI ND Rl Ul XCHK (table irvV* 1 index?) 

45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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‘Number of sheets per pad may vary slightly. 


The answer for this program is in Appendix A. 
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Appendix A. Answers to the Test Questions at the End of Each Chapter 


ANSWERS TO QUESTIONS IN CHAPTER 2 


1. f 

2. c 

3. i 

4. j 

5. b 

6. d 

7. h 

8. e 

9- 9 

10. a 

2. Data entry is the process of transferring information from an existing 
source to a diskette record. 

3. DE/RPG provides a way for you to write programs for data-entry jobs. 

ANSWERS TO QUESTIONS IN CHAPTER 3 


a. A customer address file 

b. 1. The data set consists of header records that contain information 
about each customer for the business 

2 . 1 

3. CORP (data) CUSN (data) 

STREET (data) STATE (data) 

CITY (data) NUMBER (data) 

H (data) CUSTOMER NUMBER (literal) 
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ANSWERS TO QUESTIONS IN CHAPTER 4 


1 . 

a. Z 

b. A 

c. A 

d. Z and A 

The transaction file defines the data set on the Z specification. The 
file statement for the diskette defines the data set on the A 
specification. 

e. A 

f. Z and A 

The entry and review mode description on the Z specification and the 
record description on the A specification. 

g. A 

h. A 

2 . 

a. INPUT for the CRT file 

b. MASTHEAD for the diskette and transaction file 

3. 007039 

Row 2 for the display is line 1 for the DE/RPG program. 

4. c 

5. a and c 

6. review 


ANSWERS TO SUMMARY QUESTIONS FOR CHAPTERS 2 THROUGH 6 

1. 

a. T 

A job statement for a data-entry program must always contain the 
TFILE keyword and the data set name parameter. 

b. F 

c. T 

If no entry format is specified, no display appears. 

d. F 

e. F 

f. T 

Only one CRT file description is required for each job. 

g- f 



h. T 

At least one record must be defined in each program. 

i. F 
j- F 

At least one field must be defined for each record. There is no 
maximum number of fields per record. 

k. F 

A prompt does not have to be included in a program. 

l. F 

No edits or checks are required in a program. 

m. T 

A diskette file description must be included and its name must match 
that of the TFILE parameter. 

n. F 

Only one diskette file description is necessary for a simple data-entry 
program, although multiple file descriptions can be included in a single 
program. 

2. b 
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4. b and c 

a is false because the entry format name must match a record name on 
the A specification-not the CRT file name. 

5. PMT(ENTER THE FOLLOWING INFORMATION) 

6. b 

DE/RPG does provide a method for marking records that are in error. 
This is different from the record marker that allows DE/RPG to 
automatically select the appropriate format for entry and review modes. 


International Bulinetl Machine! Corporj 


IBM 5280 DATA DESCRIPTION SPECIFICATIONS 


Job No. 

Dataset 

Operator 

Date 


Graphic 


~ 






Key 


_ 







Source Document TEST SAMPLE I Page of 

PROGRAM IN Cm 6 




RANGE How high) 
RANGE! (table [nx 
RESET CTOTni 


Dataset/Record/ 
Field/Table Name 


19 20 21 22 23 24 25 26127 28 29130 31 32 33 3 



5 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8 


lllIBBIKIiaHIlllSl^lllllllKIIIIIIIIII 

iiiiBBiKiiiiiiiiiiiiiimiiiiimiiiiii 

IIIIBBI1IIIIRI8RIIIIIIIIII1IKIIIIIIIIII 

IIIIDBI 11 ^ Him III 

IIIIDEI III llllllll lll?l H'l 
IIIIBBIIIIII1IIXI8IIIIIIII1IKIIIIIIIIIII 
IllIBBIlllllllKlIlllllllliaillllllllllll 
IIIDBBIIIIRinilSlSHflDIISlilll^lilll 
IIIDDBI II I llllllll llllll 

IIIDQEI III llllllll llllll ■ 
IIIDBBIHIIKIKIRIIIIIIIIIIII1KIIIIIIIIIII 
IIIDOBI III llllllll llllll III 

iiidqci il l ilium iiiiii in 

IIIIICI III llllllll llllll III 
IIIIIBIIIIIK1SKIIKIIIIIIIIRIIIIIIIIIII1 
IIIIIBIIIliiRllllimillllKlllllllllllll 


IIIHQBlEISSQaim^SBn^SIB 

miiiiimmiimimiii 

msiisKDimiimmii 

iimiiiiimiiimiiimi 

maiiBBiJBisiQa^iQEEsaega 

III^^BUTIIIIIIIIIIIIII 

iiishmiiiiiiiiiiiiii 


III 

III 

III 

III 

III 


miiiiiiiimiii 

mimiiiimiii 

■1111111111111111 

miiiiiiiimiii 

iiiimiimmii 

iiiimmiimii 


■iiiibi ii j mum mm immmmmmmmmmmmi 
imiBi iiiinni imuii mm immmmmimmmmmmm 


'Number of sheets per pad may vary slightly. 


l as 45 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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7 48 49 50 51 52 53 54|55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8 


HioiBsii^^rriBiiisHiiiBiagBiiiiiiisiifliiiiisiiiiiisiiiKaaoaiQtriggisaais^aiiiiiiiiii 


IIIBIBI^E]Hg3ll«»igBflBgBllllil3SBIBiSi«»l8g^li»illS!lll 


IIIBB1III 

IIIDIIIII 

III1IBIII 

1IIBIBBII 
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IIIQIBIII 

IIIQIBIII 

IBDBIBBBI 

II1IIBIII 

IIIQIBIII 

IIIQIBIII 

IIIIIBIII 

IIIIIBIII 

IIIIIBIII 

IIIIIBIII 

IIIIIBIII 

IIIIIBIII 


■■ ■BBQSBBBBB3SBBB 20 IIS 

IIIIIIIBBBBBBIBIBII3SIIBI1111IIIB1II1II1IIIB 

IHlIBBBfliaSlIIIBIiaSBIflliKilllBBlIliilllBIB 

milBIBflQ3i|BIBRia3llflllllll«BBIIK«IIIIBIB 

IBBBBB 3B3EBBBB3SBBB ' BBBBB 
■■■■■iglBlliaSlIHlIKIIIlBflllllllliflli 

■■BlllllBIIBlIKIIIIBIIIIIllllBIB 

lllliBBBBQ3IIBIINRaEBIfllllllllBIINIi«IMlllB 
IBIlllllBB3BIBBIliaEBBflllRlRIIBIlllllllim 
lll8IBIBIB3SIBIIliaSBIBlllllllBIIIIHMNNIIB 
lllllBIBiBaBIBIBIiaSBBIlKIRRKRBIllllllllllB 
llllllBIIBailBIIRiaSlIBHRlRIlIBBIHIHKllllB 
lliaiBBIIBSBIBfllliaEBIIllI iRIBIHl III 

III ■BBai^EIBBI IRB II IBB 

IIIIIIIIIBSBIIII1113III1I1IRIRIIHHIIIII1M 


miiBfliiBaEflBifliiaaBflBiiiiiiiBfliiiiaiaiflifl 

lllllBBIIBSEBBIIKiaSIBBIIlIRlllBIllllMIlllB 


llllllllllllll 

llllllllllllll 

llllllllllllll 

IBIIBIIBIBIIII 

llllllllllllll 

llllllllllllll 

llllllllllllll 

llllllllllllll 

llllllllllllll 

llllllllllllll 

llllllllllllll 

llllllllllllll 

IIIIIIIIIIIIIN 

llllllllllllll 

llllllllllllll 

llllllllllllll 


llllllllllllll 

llllllllllllll 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2425 26 27 28 2930 31 32 33 34 35 36 37 38 3940 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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ANSWERS TO QUESTIONS IN CHAPTER 7 


1. a, c, and d 

The record types are (1) header, (2) detail, and (3) trailer. 

The detail 'and trailer records are reformated. 

The three tables that are used are ITEMT, PRICET, and INVENT. 

Figure 7 illustrates the source document for the second sample job. 

2. a and c 

Fields are normally named so they can be used more than once within 
the same program. 

A table is a list of items. 

A grocery list is an example of a table. 


ANSWERS TO QUESTIONS IN CHAPTER 8 

1 

a. ITEMT 

b. PRICET 

c. INVENT 

2 . 

a. Using tables 

b. Performing calculations 

c. Reformatting fields in diskette records 

d. Specifying formats for automatic selection in the review mode 

e. Using AUXST and AUXDUP 

f. Using indexes 

g. Suppressing the writing of a record 

h. Using a scratch record 

i. Using multiple records 

j. Copying records from another data set 

k. Specifying data sets for sharing 

3. 

a. F 

Named fields can be used in a variety of ways. If a field is used with 
AUXDUP or AUXST, it must be named. 

b. T 

Only fields that will be reused must be named. 

c. F 

Indexes must be as long as necessary to hold the maximum number 
of positions in the associated table. 

d. F 

Indexes must only be used when the associated tables are used in 
edits that require them such as XCHK. 

4. d 

5. To select the appropriate review format 



ANSWERS TO QUESTIONS IN CHAPTER 9 

1. c 

(1) in the same program in which they are used and (2) in a separate data 
set. 

2. 2 


4. a and c 

B is incorrect because the ITEMT and PRICET tables were created within 
the using program. 

ANSWERS TO QUESTIONS IN CHAPTER 10 


a. T 

b. F 

A field is the smallest piece. 

c. F 

Prompts and literals are special messages. 

d. T 

2. 480 

3. status line 

4. prompt literals 

5. underlined 

6. 

a. T 

If there is no length, the program cannot be compiled. 

b. F 

The maximum field length is 6. 

c. F 

Each program must have a job statement. 

d. F 

Each program must have an entry format description. 

7. BILLING 

8. SCRATCH 

9. ITEMT 

10. AUXST 

11. nonblank data required 

12. A B 

13. compile time data sets 


14. entries 
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IBM 


International Business Machines Corpofet'O'’ 


Job 

Keyinq 

Instruction 

— 

Graphic 







i 

Operator | Date 

Key 

_ 

_ 

_ 

_ 

i 




□ 


Printed 


U. S. A. 


;>—■FINAL program 
TEST ANSWERS 


1 


3 



1 2 3 4 I e 7 I ( 10 11 12 13 14 H 16 17 16 19 20 21 22 21 24 26 26 27 36 29 10 11 S3 13 34 16 1617 36 1(40 41 <241 44 46 46 4741 46 60 H 82 61 64 16 66 676169 60 11 6261 64 66 II 67 II 6(70 71 72 71 74 7176 77 717910 


*Numbir of ihiiti ptr pad may vary illghlly. 
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International Business Machines Corporate 
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!■■■■■■■■ 

HHHMH 


Source Document FINAL PROGRAM Page 

TEST ANSWERS 2 



Dataset/Record/ 
Field/Table Name 


9 20 21 22 23 24 25 26|27 28 29|30 31 32 33 3 




Checks=CHECK (code . . . ) 


Blank Check 

Bypau on Verify 
Data Required 
Dud Disable 
field E«>t Require 
Lowe' Case 


AS Mandatory Fill -M 

BC Rt Ad|-Blank Fill = R 

BY Right io Left - R 

BV Rt Adi-Zero Fill =R 

DR Self Check =m 

DO n = C G (Check Gent 

FE xx = Moduius 


ADD Inamel 
AUXDUP Inamel 
AUXST Inamel 
COMP ( 1 test fid 1 ’@ fii 
DSPATR ( : attr I 
EDTCDE (code float I 
ERROR (code | message | 
EXSR (subroutine) 
INSERT (fldt J @ fldnl 
LOOK liable [index! I 


PMT (promDt) 

RANGE (low high) 

RANGET (table [index! I 
1 RESET (*T0Tn| 

SEO (‘test) 

SETOF Imd) 

SETON find) 

SHIFT I 4 sh.fil 
SUB (name! 

SUBST (table 1 table? |>ndex|) 
TADD CTOTn) 

TSUB (• TOTn) 

XCHK (table .ndext <ndex2l 


5 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8 


mmmMimmmnnnmmnnmmmwmmmmmmmm 

IIIIBI IIIlNINlMilllll mill lllllllllllllllllllllllllllll 
mssi ii i xiiimi mi4 ^iiiiiiiimiiiiiiiiiiiiiiii 
IIIBI II 111 ! Il«l lllllll 

IlieBlllIXillSIliSllllllllilllllSIl^QIIIIIIQCgd^QB^^ailllllllll 

moBi ii «n»i3 ksiiiiih iiiiiiiiiiiimiimimimiimiiB 
iiiQBiiiiiivsiiifiiiimiiKimisisiQiiiiiisiiuaiHinHHiii 

IIIBfllXllilKIIII«SIIIIIIIKIRIIIISIM^OIIIIII[3^3!iUiOI3QIIIIIIIIIIII 
IIODBI II I JIIIIII IIIIQI |ii|lllllil7?d;[|[<yilHI]imilllll 
iiddbi ii T niT^ni min iiiiiiiimiiiiiiimiimiii 
iiddei ii i iiiiiii iiii:i riiiiiii;;ouvri3 |iMixn ^]in 
IIDBBIKII10lli«lilllllllllllllllllRIIIIIIII9»BQSQ^BIIIIIIIIII 
IIDBBI II I Tlllllll Hil l liillllllii. ^llUU^UOIIIIIIIIII 
IHBBISII'fi JUi 9 .@0C.OBail$^^llllg]|»IIIIIIIISSEQSffi!3H%ll3!SIQH^[^^li>» 
IIIIBIXIIIIlRIl^RgS^llllllillllllllllllllllllllllllllllllllllll 
iiiiBiiiiiiiiiiKsiiiiiiiiisiiiioiiiiiiiiiRiiiiiimimiiiiim 

IIIIEI II I Ullllll 1111.11 Lllllllllllllllllllllllllllll 
miEiiiiRiiiiiiiEiiiiiiiiiaiiii^iiiiiiiiisiimiiiiimmimi 
IIIIBIIIIIIllIKIlllllllllillllllllKIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


1 7 3 4 56 7 8 9 10 ii 12 13 14 15 16 1? 10 19 20 21 22 ?3 2425 26 27 28 2930 : 
‘Number of sheets pe' pad may vary slightly 


> 38 35 4 0 41 42 4 3 44 45 46 4 ? 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 
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Job No 

Dataset 

Kevnq 

Instruction 

Graph.c 








Operator 

Date 

Kev 









Source Document FINAL PROGRAM 

TEST ANSWERS 


ET 



i 

Reserved 

11 12 13 14 15 16 

l 

Dataset/Record/ 
Field/'Table Name 

19 20 21 22 23 24 25 26 

* 

27 28 29 

Length 

30 31 32 33 3^ 



Location 

Editing | 


Checks=CHECK (code . . . ) 

B 

Functions 

Set 

j en 

Aom Oui» AO Va-.U"-. fc-", 

Auto Sk 0 AS f 

Blank Chrrk 9C O' Art B a' k f 

aLxGuP - a"'*- RANGE i>«,* 

A.jxsr RANGE T ,tabr» ndF. 

Sequence 

12 3 4 5 

Line 

39 40 41 

Pos 

42 43 44 

Bypass on V«< •, Bv R- A<; : Z, : ,t P7 DSPATB a”- SEQ tpjt 

Data V k ■ EpTCDfc • :a* SFTOf ■ -i' 

Pup l) sab- DO • C GGf E BBQR i< ;** • —ssaqr , St TON ■ -rj■ 

LO*»' Cas* Li. INSERT 1 flfl 1 " Ak. SuB inamfi 

LOOK iiab>« i-sdf- SUBST 'Tablet <at>i«2 ncW i 

test 6Q Gt GT le i r NE TSUB I* TQTni 

‘ atti Bl.CA.CS Hi ND Rl UL XCHK liable .nth» 1 ,r.<Ji>»2> 
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Appendix B. Glossary 


alphabetic fields: Fields that accept character rather 
than numeric entries. 

auto dup: Refers to a switched key (or the function 
caused by using the switch) which enables the 
automatic duplication of fields specified with the 
AUXDUP keyword. 

automatic functions: Actions performed by the 
DE/RPG program without requiring operator 
intervention. An example is the automatic insertion of a 
record marker as specified. 

checking: The automatic verification of the correctness 
of the type of entry such as requiring all nonblank 
characters to fill a field. 

copying: The duplication of a set of information. 

counters: Fifteen-byte areas of storage that are 
represented by the names *T0T1 through *T0T9 and 
that can be used to contain intermediate results. 

data entry: The transfer of data from a source 
document to a diskette data set. 

data required fields: A field edit that requires the 
operator to enter nonblank data in the field before 
leaving it. 

data set: A collection of related data records on a 
diskette. 

diskette: The media used to record data. 

display: The data that is shown on the screens of the 
data stations. 

display work sheets: A design tool which enables you 
to lay out the contents of the displays you want to 
create with the program. 

EOJ function: The use of the CMD key followed by 
the numeric 7 key (typewriter keyboard) for the purpose 
of terminating the job. 


editing: The manipulation of data in a field to enhance 
its usability such as adjusting the entry to the right of 
the field and filling the remaining positions with zeros or 
blanks. 

fields: Small pieces of related data, which together 
make up records; either consisting of data entered by an 
operator or of automatically supplied data. 

files: A temporary storage area for data before it is 
displayed or written on a diskette. 

formats: The definition of the sequence of data for the 
displays and diskettes. 

job: The definition and control of a data-entry task. 

line: The relative horizontal location across the display. 
See also row. 

literals: Messages displayed as located by the program. 

modes: Types of operations during which data entry 
using DE/RPG can be performed. The four modes are 
enter, update, verify, and rerun. 

program: The information contained on the Z and A 
specification to describe the data entry job. 

prompts: Messages displayed on the second line of the 
display. 

record advance: Refers to a key that, when pressed, 
displays the format for the next record. 

records: A unit of related fields, equal size units of 
which make up the diskette data set. 

reformatting: The rearranging of data into a sequence 
that differs from that used for the enter mode. 

row: The physical horizontal location across the display. 
See also line. 

source document: The object from which the operator 
is taking data to enter into the system. 

specification: The coding forms (A and Z) which have 
been designed to enable the coding of DE/RPG 
programs prior to their being entered into the system. 
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Appendix C. Blank Display Work Sheets and A and Z Specifications 


Blank Display Work Sheets and A and Z Specifications 
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Index 


A specification 35 
(see also Appendix C ) 
allocating data sets 59, 82 
alphabetic fields 37, 127 
answers to tests (see Appendix A) 
apostrophes 41 

arithmetic expressions 100, 130 

Auto Dup function 122, 124 

automatic functions 5 

AUXDUP (auxiliary duplicate) keyword 124 

AUXST (auxiliary store) keyword 100,122 


B index 127 

BC (blank check) parameter 42 
blank check edit 42 

blank specification and worksheet (see Appendix C) 
BY (bypass) parameter 43 
bypass 43 


calculating the length of a bypass field 43 
CFILE (copyfile) keyword 139 
CHECK(BC) keywords and parameters 42 
CHECK(BY) keyword and parameter 36,43 
CHECK(DR BC) keyword and parameter 42 
CHECK(DR) keyword and parameter 38 
CHECK(FE) keyword and parameter 123 
CHECK(RZ) keyword and parameter 129 
checks 5 

CITY field definition 29, 40, 67 
combining parameters 42 
compile-time tables 145 
compiler 

process for using (see Chapter 6) 
printed output 79 
sequence of prompts (see Chapter 6) 
continuation characters 38 
copying the HEADER records 120, 139 
CORP field definition 27, 37, 64 
corporation field definition 27, 37, 64 
COST field 115,130 
counters 101 

cross check function 105, 130 
CRT parameter 47 
**CTDATA 146 
CUSN field 28, 39, 65 
customer file 17 

customer name field definition 28, 39, 65 
CUSTOMER NUMBER ' literal definition 30,41,69 
cycle for using DE/RPG 15 


DAT field 111,125 
data entry 3 

data required edit (CHECK(DR)) 38 
data sets 7 

coding for 48, 134 

description of contents for second sample program 98 
DATE field 110,122 
DAY field 119,133 
DE/RPG compiler 73 
deleted records 50 
DESC field 114,128 
DET record 124 
DETAIL record 99,134 
detail records 98 

Detailed Purchase Job definition (second sample program) 97 

DEVICE keyword 47, 137 

disk addresses 48 

DISK parameter 48 

DISPSIZ file 47 

display attributes 31, 38 

display design work sheets 20 

displays 19 

attributes 31, 38 
design for first program 25 
design for second program 110 
design work sheet 20 
fields 22 
literals 23, 30 
prompts 19, 21, 23 
status line 19, 21 
size 21 

displays for first sample program 25 
displays for second sample program 110 
displays used by source entry program 56 
DR (data required) parameter 38 
DSPATR(HI) keyword and parameter 131 
DSPATR(UL) keyword and parameter 38 
DSPSIZ (display size) parameter 47 


E (entry) mode 7, 50 
edits 5 

entry formats 4 
entry mode 7 

entry sequence for the source entry program 60 


F (A specification entry) file statement 47, 134 
field exit 110, 123 
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fields 

definition of term 9 

definition for the first sample program 36 
definition for the second sample program 122 
description for displays (see displays) 
length of 37 
naming 37 
files 

definition of term 7 

description of file display for source entry program 63, 71 
definition for the first sample program 47 
definition for the second sample program 121, 134 
final test (see Chapter 10) 
format 0 120 

formats 

definition of term 4 

display for the source entry program 62 

definition for the first sample program 51 

definition for the second sample program 139 

selection of 143 

types 4 


HEADER record description 46 
header records 10, 98 
HI (highlight) parameter 131 
highlight attribute 131 


I usage 38 

indexes 104 

input fields 38 

INSERT keyword 45,101,131 

instructions 

for using the compiler (see Chapter 6) 
for using the first sample program 18 
for using the object program 81 
for using the second sample program 97 
for using the source entry program (see Chapter 5) 
INVENT table 105,130,146 
ITEM field 127 
ITEMT table 127 


J (job description) statement 34, 49, 139 
jobs 

definition of 4 

display for the source entry program 61 
statement on Z specification 49, 139 


keywords 36 


length 

for arithmetic fields 130 
for counters 131 
for display attribute 31 
for literals 110 
for padding 43 
for prompts 21 
for records 47 
literals 

definition 10 
extended use 123 
loading programs 

DE/RPG Compiler 73 

OBJECT (object program for MASTER source program) 81 
source entry program 56 
location of 

data on display relevant to display size 21 
fields (as coded on A specification) 35 
literals 11 
prompts 10 
status line 19 
LOOK keyword 105, 128 


manuals (see Preface) 

mark (record ID) fields 45, 132, 133 

MARK field 48 

MARK2 132 

MARK3 133 

Master Customer Identification Job 16 
MASTHEAD 18,48,49 
menu for the source entry program 61 
messages 
literals 11 
prompts 11 

minimum program description 34 

minimum system for compiling the first sample program 55 
modes (see formats) 
multiple parameters 42 


N (indefinite number of times to use format) 50, 141 

named fields 100 

names 

compiler 73 
field 100 
files 47 
formats 51 
job 50 

object program 81 
source entry program 56 
source program 58 
next format ID 51, 140 
NUMBER field 30, 42, 70 
NUMENT keyword 138,146 
numeric field 127 
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0 usage 38, 41 
output fields 38, 41 
overview of 

the first sample job 18 
the second sample job 97 


padding records with blanks 43 
parameters 36 
picture check 113, 127 
PMT (prompt) keyword 38 
*POS reserved word 101,131 
positioning 

data on the display 38 
fields for reformatting records 135 
PRICE field 116,130 
price field 116, 130 
PRICET table 138,146 
program 

definition of term 7 
loading programs 56, 73, 81 
minimum description 34 
prompts 10, 21 


sequence 

for using DE/RPG programs 81 
for using second sample job 120 
for using the compiler 81 
for using the source entry program 56 
for writing programs 60 
SHARER keyword 50 
SHIFT keyword 127 
source entry program 56 
specifications 

blank specifications for your use (see Appendix C) 
minimum description 34 
STATE field definition 29, 40, 66 
status line 19 

STREET address field definition 29, 40, 66 
summary 

Chapter 2 12 

Chapter 3 32 

Chapter 4 52 

Chapter 6 89 

Chapter 7 108 

Chapter 8 144 

Chapter 9 149 

SYSDERPG 73 
SYSSEP 56 
SYSUT001 75 
SYSUT002 75 


QUANT field 115,129 
quantity field 115,129 


R (record) statement entry 46 
R (review) mode entry 51 
records 

definition of term 8 

description of A specification 35 

display for source entry program 64 

length 18, 95 

mark field 45, 132, 133 

types 98 

reformatting records 135 
related manuals (see Preface) 
required fields 34 
RESET keyword 133 
review mode 35, 51, 63, 143 
right adjust with zero fill edit 129 


salesman's initials field 112, 126 
salesperson's initials field 112, 126 
SALS field 112,126 
sample cards for first program 17 
SCRATCH record description 110, 122 
selecting review mode formats 143 


tables 

as used in the second sample program 129 
content of 102, 105, 146 
created at compile time 146 
created in seperate data set 147 
definition of term 102 
TABLE 1 data set 138,146 
TABLE2 data set 138,148 
TADD keyword 131 
test character 143 

testing character for format selection 143 
tests 

Chapter 2 12 

Chapter 3 32 

Chapter 4 52 

Chapter 6 89 

Chapter 7 108 

Chapter 8 144 

Chapter 9 149 

Chapter 10 151 

TFILE keyword 

for first sample program 50, 61 
for second sample program 139 
TOT field 133 

*TOT reserved word 101,119,131 
TRAIL record 119,133 
TRAILER record 97, 135 
trailer records 98 
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underlining 31 

usage entry 38 

using the source entry program 56 


W usage 38 

workspace fields 127 

WRITE (*NO) keyword and parameter 140 

WRITE (DETAIL) keyword and parameter 141 

WRITE (TRAILER) keyword and parameter 142 


XCHK (cross-check) keyword 105, 130 


Z specification 34 
(see also Appendix C) 
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Display Screen Layout Sheet 


COLUMN 


1-10 


11-20 


21-30 


31-40 
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IBM 5280 GENERAL UTILITY SPECIFICATIONS 


Printed in U. S. A. 



Keying 

Instruction 



Test Conditions 



Job/Format/ 
Subroutine Name 


Sequence 


1 2 3 4 5 


7 18 9|10 11 12 13 14 15 16 17ll 8 1 


111 


Position 
to be Tested 
(*POSnnnn) 


23 24 25 26 27 28 29 30131 


Job Line Entry Lines 

— CFILE (data set) CLRL (number) 

15 DATE (-DMY/-YMD) EOJ [(('job'dev| (*PASS])| 

n , O 0 , EDITC (cuptd) SLNO (line) 

Reserved < Reserved entratr catu...) write (name) 

q> EXITATR I'attr. . .) 

2 JOBOPT ([ • NOPMT][-NOOPEN |) 

o PRTFILE (data set) 

^ SHARE (names) 

£2 ^ SHARER (names) 

^ STATUS (name) 

o LL TFI LE (data set fdelfreq)) 

<n ^ 

jH £ ' attr=BL,CS,HI,ND,RI,UL 

O Z 

35 36 37 38 39 40 41 42 43 44 4546 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 


iiiiiii 


isi 


1131 


1191 


I 


1131 


131 



191 

31 


1131 


1131 


IIIIIIIBB3BIIIIII13I 

11111111131111111331 

■■■miiHaEiiiims 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2425 26 27 28 2930 31 32 3334 35 36 37 38 3940 41 4243 44 45 46 4748 495051 52 53 545556 57585960 61 626364656667 68 6970 71 72 73 747576 77 787980 
'Number of sheets per pad may vary slightly. 










































1-5 

6 

7 

8-9 


10-17 


18-19 

Note: 

20 


21 

22- 37 

22 

23- 30 


Identifies the source statement order 

Identifies the type of source statement 

Names the type of source statement 
*-User comment 
J-Job specification 
blank-Format specification 

The identification associated with this format: 

1 through 9-A single numeric character ID 
AO through Z9-A two-character ID consisting of 
an alphabetic character followed by a numeric 
character. 

The name used to: 

- identify the job (J in column 7). 

- identify the format or subroutine (blank in column 
7). 

These columns are not used if column 21 contains an 
R. 

Reserved. 

Columns 20-54 are not used if column 7 contains a J. 

Specifies the number of times the format is repeated 
before the next format is used: 

1 through 9-Repeat the format for the specified 
number of times unless the SEL FMT or NEXT 
FMT key is pressed. 

blank or N-Repeat the format until the SEL FMT or 
NEXT FMT key is pressed. 

Specifies how the format is used: 

E-(Entry) used to enter and display data. 

R-(Review) used to select a format for scan, update, 
or verify of existing records. 

Used for logical selection of a format. Multiple tests 
are allowed. In enter mode, the format selected is 
used to format the next record entered. In review 
mode, the format selected is used to display the 
current record 

In review mode (column 21 contains an R), an A 
specifies the ending of two characters in the data 
record to create a unique record identifier. 

*POSnnnn identifies the position in the data record 
to be tested, where nnnn is a numeric value from 1 
to 1024. 


31-32 Reserved 

33-34 The characters EQ or blank when a character to test 
for is specified in position 35-37 

35-37 Specifies the character that controls format selection 
if it matches the character in the data record 

38-44 Reserved. 

45-46 Specifies the identification of the format used for the 
entry or display of the next record If columns 22-37 
are specified, the format is selected when a match 
occurs If columns 22-37 are not specified in enter 
mode (E in column 21), the format is selected when 
the repeat count (column 21) is met or the NEXT 
FMT key is pressed If columns 22-37 are not 
specified in review mode (R in column 21), the 
format is selected if no previous match occurs 

47-54 Reserved. 

55-80 Keywords that specify information used for jobs or 
formats: 

JOB specifications (J in column 7): 

CFILE (data set)-lncludes the COPY function in the 
job. The parameter data set is the data set name 
from which records will be copied 
DATE(*DMY/*YMD)-The format of the date available 
in UDATE. The default is *MDY, where M = 
month, D = day, and Y = year. 

EDITC(cuptd)-Five characters that define the editing 
control for output fields, where: 

- cu is a two-character currency symbol (default 
= b$>. 

- p is the decimal point character (default = .). 

- t is the thousand separator character (default 
= ,)■ 

- d is the date separator character (default = /). 
The system default for this option is b$.,/ if 

EDITC is not specified. 

ENTRATR (attr.)-Specifies the attributes that are 
applied to all input/both fields only when the 
fields are being entered, where attr is: 

BL (blink) 

CS (column separators) 

FI I (high intensity) 

ND (nondisplay) 

Rl (reverse image) 

UL (underline) 

A combination of attributes can also be used 
EXITATR (attr. .(-Specifies the attributes that are 
applied to all input/both fields after the fields 
have been entered. See the ENTRATR for a 
description of the attr parameter 


JOBOPT([*NOPMT] [*NOOPEN])-At least one of the 
parameters must be specified Where: 

- *NOPMT specifies to bypass the prompts for 
data set information at the beginning of the 

job. 

- *NOOPEN specifies to bypass the automatic 
opening of all files except the transaction file 
specified by the TFILE keyword 

PRTFILE (data set)-lncludes the PRINT function in 
the job The parameter data set is the data set 
name to be assigned to the printer 

SFIARE(names)-Allows other programs to read or 
write records in the data set specified by the 
names parameter while this program is executing. 

SFIARER(names)-Allows other programs to read 
records in the data set specified by the names 
parameter while this program is executing. 

STATUS(name)-Establishes a variable that can be 
used to check the status of an I/O device after an 
I/O operation The parameter name is the name 
assigned to the variable. 

TFILE(data set [delfreq])-Specifies the data set where 
records will be written after a format is 
completed, where 

- data set is the name of the data set that 
receives the transaction records 

- delfreq specifies how often deleted records are 
automatically inserted in the transaction data 
set. 

Format Specifications (blank in column 7): 

CLRL (number)-Specifies the number of display lines 
cleared, starting from the first line of the display 
when a new record is to be entered If *NO is 
specified, none of the display lines are cleared 

EOJ [(('job' dev] [*PASS])]-Causes the end of the 
job upon completion of the format The optional 
parameters are: 

job-name of the next job to execute 
dev-the device address where the next job is 
located 

*PASS-suppress job production statistics 

SLNO (line)-Specifies the uppermost display line that 
can be used All display line references are based 
on the specified line as line one 

WRITE (name)-Specifies that the current data is 
written to the data set in the record formal 
specified by name If *NO is specified, the current 
data is not written to the data set 

Continuation can be specified by a + or as the last 
character on the line, where 

+ specifies to continue with the first ncnblank 
character in positions 55 80 on the next line 
(ignore leading blanks) 

specifies to continue from position 55 on the 
next line (including leading blanks) 
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IBM 5280 DATA DESCRIPTION SPECIFICATIONS 


Printed in U.S.A. 



Keying 

Instruction 



Source Document 





Editing 


Checks=CHECK (code . . . ) 


Reserved 


Dataset/Record/ 
Field/Table Name 


Line Pos 


Sequence 


516 I 7 I 819 1 


£ a> a) 

z cc tr 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 


Auto Dup AD 

Auto Skip AS 

Blank Check BC 

Bypass BY 

Bypass on Verity BV 

Data Required DR 

Dup Disable DD 

Field Exit Required FE 
Lower Case LC 


AD Mandatory Entry = ME 

AS Mandatory Fill = MF 

BC Rt Adj-Blank Fill RB 

BY Right to Left RL 

BV Rt Adj-Zero Fill RZ 

DR Self Check nxx 

DD D M/G (Check/Gen) 

FE xx Modulus 


ADD (name) 

AUXDUP (name) 

AUXST (name) 

COMP (' test fId 1. fldn 
'literal' (indicator) ) 

DSPATR ( 2 attr . . ) 

EDTCDE (code ’float*) 

ERROR (code (‘message*] ) 

EXSR (subroutine) 

INSERT (fldl 3 @ . . fldn 'literal’) 
LOOK (table (index | ) 

1 testEQ.GE.GT.LE.LT.NE 
2 attr =BL.CA.CS,HI,ND,RI.UL 
J @_+ _ * / 

4 shift A.D,H.N.V.W.X.Y 


PMT (prompt) 

RANGE (low high) 

RANGET (table (index] ) 
RESET (CTOTnl ]name| ) 
SEQ ('test) 

SETOF (md) 

SETON (ind) 

SHIFT ( 4 shift) 

SUB (name) 

SUBST (table 1 table2 (index]) 
TADD (CTOTnl (nameI ) 
TSUB (CTOTn] (name!) 
XCHK (table index 1 mdex2) 
’literal* 


I SB Si 


39 40 41 42 43 44|45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8 


ingm 

mini 


1 2 3 4 5 6 7 8 9 10 1112 13 14 15 16 17 18 19 20 2122 23 2425 26 27 28 2930 31 32 33 34 35 36 37 38 3940 41 4243 44 45 464748 495051 52 53 54 5556 57585960 61 626364656667 686970 71 72 73 747576 77787980 
’Number of sheets per pad may vary slightly. 




























































































I- 5 Identifies the source statement order, 

6 Identifies the type of source statement. 

7 An * indicates a user comment. 

8 Reserved 

9-10 Specifies the indicator that is used to control field 
bypassing or displaying user error codes 

II- 16 Reserved. 


17 Defines the type of statement: F = data set, R = 

record, K = key field, T = table, blank = field. 

18 Reserved. 

19-26 Specifies the name for: data set (max 8 characters), 

record (max 8 characters), field (max 6 characters), or 
table (max 6 characters). 

27-29 Reserved. 


30-34 


35 


36 

37 

38 

39-44 


Specifies the length: 

data set = maximum record length is required 
record = number of characters (1-8192) 
field = number of characters (1-256 for alphameric or 
1-16 for numeric). 


Defines the data type for the field: 


A = alpha 
N = numeric 
S = signed numeric 
W = Right half shift 
H = hexadecimal 


Reserved. 


X = alpha only 

Y = numeric only 
D = digits only 

V = Right half only 

C = Use SHIFT keyword 
b = alpha or numeric 
depending on the field type 


Specifies the number of decimal positions (0-9). 

Specifies how the data in a field on the display 
screen is processed: I = input, 0 = output, B = 
both, W = workspace 


Specifies the location of the field within a record or 
on the display screen 


DSPSIZ (lines 80)-specifies display size: lines = 6, 
12, or 24. 

FORM (length (overflow-line overflow-ind])-Specifies 
the printer page size; length specifies the lines 
available on the page, overlow-line specifies the 
line that sets the overflow indicator on, and 
overflow-ind specifies the indicator that is set on 

INDEX (Istorage] [data set])-At least one parameter 
must be specified Specifies the storage reserved 
for the sparse index and the index data set name 
storage specifies the space required for the index, 
data set sneciftes the name of tr, e mdex data set 

LABEL (name of data set)-diskette data set name 

LOGON (' message' or name)-Specifies the log on 
information when required for communications 
The parameter can be either a message enclosed 
in single quotes or a variable name. 

NUMENT (number)-number of records in a data set 
when used for dynamic allocation of the data set 
or the number of entries in a table. 

Records IR in column 17) 

DSPATR (attr... (-Specifies the display attributes that 
apply to all the fields in the record. 

MARK (*POSnnnn)-Specifies the position in a data 
record where an E is placed if the Field Mark key 
is pressed. 

VMARK (*POSnnnn)-Specifies the position in a data 
record where a V is placed after the record is 
verified. 

RECID (*POSnnnn 1 c')—Specifies the position that 
identifies the single character record type ' c' 
from a data set with more than one record type 
(nnnn is 1 to 8192). 

SPACEA (n)-Causes the printer to space n lines after 
the record is printed. 

SPACEB (n)-Causes the printer to space n lines 
before the record is printed. 

SKIPA (n)-Causes the printer to skip to line n after 
the record is printed 

SKIPB (n)-Causes the printer to skip to line n before 
the record is printed. 

Field (Blank in column 17) 


45-80 Specifies parameters for data sets, files, records, 
tables, and fields: 

Data sets and files (F in column 17) 

BLKING ([*DBL] [*FMTU or *FMTS])-specifies 
blocking characteristics for data sets: 

*DBL specifies to use two physical buffers 
*FMTU specifies that the records are 
unblocked (Basic or H data exchange) 
*FMTS specifies that the records are blocked 
and spanned (I data exchange) 

DEVICE (dev-type address)-physical device type for 
the data set 

dev-type is COMM (communications), CRT 
(keyboard/display), DISK (diskette), MREAD 
(magnetic stripe reader), PRINTER (printer) 
address is the 2-character logical ID or the 
4 character device address (X ' xxxx ' where 
xxxx is the physical address). 


ADD (name)-Adds the data in the current field to the 
named field with decimal alignment 

AUXDUP (name)-Duplicates data from the named 
field if the Dup key is pressed or the Auto 
Dup/Skip switch is on. 

AUXST (name)-Stores the current field in the named 
field if the Auto Dup/Skip switch is on 

CHECK (parameter)-Specifies the keyboard edits to 
be applied to the field. 

COMP (test fid 1 @...fldn 'literal' (indicator))- 

Compares the current field with a named field, the 
specified expression, or a literal and optionally 
turns on an indicator if the compare is true. 

DSPATR (attr...(-Controls the display attributes for 
each field. 


EDTCDE (code ['float' [(-Specifies the editing that s 
to be applied to data in numeric fields, where: 
code is a single character that controls the use 
of editing characters specified by the EDITC 
keyword 

float can be either: 

*, which places asterisks in the character 
positions to the left of the first digit 
cu, which floats the two-character currency 
symbol used on EDITC. 

ERROR (code [' message ' ])-Locks the keyboaid, 
displays an error code, and optionally displays an 
error message (when the Help key is pressed) if 
the specified indicator is turned on 
EXSR (subroutine)-Branches to the named calculation 
subroutine 

INSERT (fld1@. fldn ' literal' (-Inserts the named 
field, expression or literal into the current field 
LOOK (table |index])-Compares the current field for a 
match in a table, and optionally places the index 
value of the table entry in index 
PMT (prompt)-Displays the prompt message when 
the current field is entered 
RANGE (low high)-Specifies the low and high limits 
for data that can be entered into the current field 
RANGET (table [index])-Compares the current field 
for a match in a table of low and high limits, and 
optionally places the index value of the table ent y 
in index 

RESET ([*TOTn)[namel)-Only one parameter is 
allowed. Sets the named counter to 0 
SEQ (test)-Sequence checks the data in the current 
field against the data from the previous sequence 
check using the specified test 
SETOF (ind)-Turns the specified indicator off 
SETON (ind)-Turns the specified indicator on 
SHIFT (shift)-Specifies the shift and character set for 
each character in a field when C is specified for 
data type 

SUB (name)-Subtracts the data in the current field 
from the named field with decimal alignment 
SUBST (table) table2 |mdexl)-Compares the curren 
field for a match in tablel If there is a match, 
replaces the current field with data from the 
corresponding entry in table2. Optionally places 
the index value of the table entry in index 
TADD ([*TOTn][name])-Only one parameter is 
allowed Adds the current field to the named 
counter. 

TSUB ([*TOTn][name])-Oniy one parameter is 
allowed Subtracts the current field from the 
named counter 

XCHK (table indexl index2)-Compares the indexes to 
see if they match an entry in a named table of 
index pairs 

Continuation-Specifles to continue on the next line 
+ specifies to continue with the first nonblank 
character in position 45 80 on the next line 
(ignore leading blanks) 

specifies to continue from position 45 on the 
next line (leading blanks are included) 
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